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EDITORIAL 



De nombreux lecteurs nous telephonent ou nous ecrivent pour nous poser des questions sur I'Apple et ses 
utilisations possibles. II ne nous est malheureusement pas possible de repondre a tous. D'une part, cela demande 
souvent du temps, et il s'agit la de notre ressource la plus rare. D'autre part, il y a encore beaucoup de choses que 
nous ne savons pas, ou pour lesquelles I'equipement nous fait defaut. Les questions les plus frequentes ou les plus 
interessantes peuvent aussi trouver leur r6ponse dans le Courrier des Lecteurs. Nous vous prions de nous excuser de 
ne pas pouvoir faire plus en ce moment, mais nos moyens ne nous permettent pas encore d'assurer ce genre de 
service. 

Nous vous offrons quatre longs articles dans ce numero. Tout d'abord, Particle d'initiation ^ I'Assembleur, de 
Jean-Louis Meillaud, annonc6 dhs le num6ro 1... Ensuite, la seconde partie de 1' analyse du directory, de Michel 
Crimont. Enfin, le programme de transfert BASIC-Pascal-BASIC realise par Gilles Mauffrey pour la disquette 
Pom's N° 2, et un article de Bruno Estrangin sur les joies de la communication a I'aide d'un Apple. 

De nombreux autres articles viennent completer ce numero 3, y compris (et c'est l£i une premiere pour nous) des 
contributions de lecteurs. N'hesitez pas a poursuivre dans cette voie : le proselytisme et la participation sont les cles 
de la r6ussite de votre revue. C'est vous qui faites votre revue ; nous ne soimnes que des catalyseurs ! 

Les lecteurs nous demandent souvent s'il est encore possible de commander le numero 1, ou si Ton pent acquerir les 
disquettes s6par6ment. La reponse est affirmative dans les deux cas. N'hesitez pas non plus h nous faire parvenir des 
petites annonces. EUes seront gratuites, sous reserve qu'il s'agisse effectivement d'annonces de partictiliers. La 
periodicity trimestrielle est en effet quelque peu un frein pour les annonces, mais cela n'empSche pas le rapport 
performance/prix d'etre excellent... 

Personne n'ayant trouve la bonne reponse a notre concours public dans Pom's N° 2, nous vous donnons page 60 une 
seconde chance de prouver votre sagacite et de gagner ainsi un abonnement d'un an. 

Nous vous donnons rendez-vous au salon Micro-Expo, qui se tiendra a Paris du 14 au 19 juin 1982. Nous y 
partagerons un stand avec les revues La Commode (Conmiodore) et Trace (TRS-80). 

Herv6 Thiriez 



Directeur de la publication - redacteur en chef : Herve Thiriez - Siege social : Editions IVIEV - 49, rue Lamartine - 78000 1 
Versailles - Redaction et abonnements : 59, bd de Glatigny - 78000 Versailles - Tel. (31 918.13.07 - Regie publicitaire : Force 7 - | 
41, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tel. (1) 238.66.10 - Diffusion aupres des boutiques informatiques et ! 
librairies : Editions du PSI - 41-51, rue Jacquard - BP 86 - 77400 Lagny - Tel. (6) 007.59.31. 

Ont collabore a ce numero : Pierre Boutreux, Michel Crimont, Jean-Franpois Duvivier, Bruno Estrangin, Christian Guerin, Guy 
Mathieu, Gilles Mauffrey, Jean-Louis Meillaud, Gerard Michel. Bruno Rives - Dessin : Jean Mourot. 
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Apprentissage de I'assembleur (I) 

Jean-Louis Meillaud 



IL N'Y A PAS DE LANGAGE UNIVERSEL 

Le possesseur d'un Apple qui veut se lancer dans la programmation est tout de 
suite sollicite par una pleiade de langages, BASIC, Pascal, Forth etc, sans parler 
de quelques " vieilleries" comme le Cobol et le Fortran. Ces langages ont sans 
doute beaucoup d'attrait pour ceux qui disposent a la fois du temps et du budget 
necessaires! Mon propos n'est pas d'entamer une polemique avec ceux qui vantent 
les merites de Pascal et du pari qu'il represente . . . A mon niveau, que je pense 
etre celui de nombreux utilisateurs, 1' Apple, tel qu'il est livre, avec son BASIC 
et son MONITEUR, a de quoi contenter les plus exigeants. Les softs, je devrais 
dire les logiciels, proposes par les societes specialisees (une bonne centaine 
rien qu'aux Etat-lhis) sont ecrits a 99% dans un melange de BASIC et de 
lang age-machine, et ils raarchent en effet tres bien . 

Prenons comme reference 1' Apple 11+ avec Applesoft et Autostart, qui represente le 
Standard actuel. Ce BASIC est un langage d'une souplesse et d'une facilite 
d'emploi inegalees. Le fait que le BASIC Applesoft soit interprete et soumis a un 
controle syntaxique au moment de cette interpretation rend nos programmes 
immediatement operationnels ; ce n'est pas le cas avec des langages compiles. 

Les limitations memes de 1' Applesoft me paralssent plutot un avantage. II est 
facile, quand le besoin s'en fait sentir, de trouver des sous-programmes simulant 
le PRINT USING (voir POM'S numero 4, en Juin) ou les instructions de traitement de 
matrices qu'on trouve generalement dans les BASICs plus "etendus" . Sans gout 
immodere pour le paradoxe, je dirais que 1' Applesoft est efficace en proportion de 
sa simplicite . 

LES VRAIES LIMITES 

Le BASIC, quelque soit son parfum, Applesoft ou Integer, se montre invivable dans 
certaines applications. Pour des calculs tres repetitlfs, sa lenteur devient 
exasperante. Qui n'a jamais "pique une crise" devant son ecran a attendre qu'une 
boucle en BASIC finisse de s'executer, ou encore qu'un segment de programme soit 
charge ? Ceux qui ont essaye d'utiliser un Mailing List tel qu'APPLEPOST me 
comprendront . Et pourtant ce prcgiciel a ete ecrit par les gens de PERSONAL 
SOFTWARE, les auteurs de VISICALC. Certaines solutions employees sont certes 
ingenieuses et de nature a inspirer le programmeur en quete de routines elegantes. 
Mais, en la circonstance, le BASIC se montre d'une telle gourmandise qu'il a fallu 
segraenter le programme et que la majeure partie du temps d' execution se passe en 
appel de ces segments de programme. 

LA SOLUTION HARMONIEUSE 

Le BASIC est irremplagable pour les petites taches qui s'executent en une fois, 
comme les affichages d' ecran. II faut le completer par des sous-programmes en 
lang age-machine pour tous les travaux repetitifs tels que les conversions de 
codes . 

II faut remarquer que le lang age-machine, comme le fait d'ailleurs le BASIC, peut 
utiliser des sous-programmes fort efficaces qui se trouvent dans le Moniteur. 
D' autre part il n'est pas interdit de brancher un programme en lang age-machine sur 
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une fonction Applesoft dont on connait le point d 'entree. 



L' ARTICULATION 

La communication entre Applesoft at langage-machine est prevue dans 1' Applesoft 
grace aux quatre instructions CALL, PEEK, POKE et USR. Eh outre, differentes 
techniques sont repertoriees pour effectuer ces mixages (cf S.H.LAM Routine, 
expliquee dans POM'S numero 2). 

LES OUTILS DE TRAVAIL 

La "Bible", c'est le "REFERENCE MANUAL" , le bouquin que vous avez soigneusement 
mis de cote le jour ou vous avez pris livraison de votre Apple ! II est grand 
temps de le f aire sortir de sa cachette et de se f amiliariser avec les commandes 
du Moniteur; les exercices sont obligatoires pour une bonne comprehension. II vous 
faut egalement un manuel de prcgrammation en assembleur et ... un assembleur. 



L'ASSEMBLEUR 

Je commence par lui car il constitue une option f ondamentale . Son choix entraine 
en partie celui du manuel. 

PREMIERE HYPOTHESE : Vous avez un ancien APPLE II, que nous appelerons APPLE II 
MOINS. Vous etes vernis car vous disposez du "MINI- ASSEMBLER" ; le "Vieux" Moniteur 
et le BASIC Entier, moins voraces que 1' Applesoft Autostart, laissent la place a 
ce petit bijou, ainsi qu'aux sous-programmes Step et Trace, bien utiles pour les 
mises au point . 

DEUXIEME HYPOTHESE : Vous avez un APPLE II +. Vous n'avez plus ni Trace ni Step et 
le MINI- ASSEMBLER a egalement disparu. Pour le recuperer, il faut que votre APPLE 
soit muni soit de la carte "Integer", (TRACE et STEP reapparaissent dans la 
foulee), soit, (plus normalement, car I'interet de 1' INTEGER en PROM est limite), 
de la Carte Langage qui vous redonne le Mini-Assembleur, mais cette fois sans le 
pas-a-pas ni le tragage. 

Si vous etes reduit a I'APPLE II + sans plus... pas de mini-assembleur, ce qui est 
bien genant car meme si un "grand" Assembleur est pratiquement indispensable, le 
"mini" rend bien des services pour les programmes courts et les modifications 
rapides. Le mini est tres pratique car il vous permet de voir ce que vous faites 
au fur et a mesure que vous ecrivez votre programme. Aussitot ecrite, votre 
instruction est a'ssemblee, a I'endroit meme ou elle devra etre executee. 
L'ecriture est particulierement simplifiee et rapide. II est par contre impossible 
d'assortir vos lignes de commentaires, pourtant bien pratiques pour savoir ce que 
vous aviez voulu faire, quand vous redecouvrez votre prcgramrae quelque temps plus 
tard . 

LES GRANDS ASSEMBLEURS 

L' inconvenient majeur du mini-assembleur pour les programmes importants est que, a 
la difference des grands, il ne permet pas les etiquettes symboliques. Ces 
etiquettes (Symbolic Labels) sont le principal atout du langage assembleur . Elles 
vont vous permettre, dans un assembleur adulte, de dire par exemple "Branchez-moi 
sur les TRAVAUX D'HERCULE", ou plus exactement sur "TVXDHERC", car il y a quand 
meme une limite dans le nombre de caracteres permis (4 a 8 suivant les modeles); 
pendant la phase d ' assemblage, le programme assemblfeur ira chercher I'adresse de 
votre routine TRAVAUX D'HERCULE quand celle-ci sera definitive . Le Programme 
d ' assemblage, qui a pour mission de transformer votre programme source (langage 



6 



Pom ' s No 3 



assembleur) en programme objet (lang age-machine) determinera automatiquement cette 
adresse en debut d' execution lors du premier passage. C'est quand meme une bonne 
maniere de s'affranchir du GOTO X du BASIC, qui vous obligera a mettre 
imperativement votre routine en ligne X, ou si vous changez d'avis, a modifier 
toutes vos references a X dans les GOTOs et autres GOSUBs . 

Ces etiquettes symboliques et bien d 'autres merveilles ne sont disponibles que sur 
les assembleurs complets. II y en a une demi-douzaine de connus sur le marche et 
il n'est pas tou jours facile de les departager. lis sont en pleine crise de 
croissance et chaque nouvelle version represente un progres sur la derniere 
version du concurrent... Dans un etat larvaire il y a deux ans, d' aspect encore 
tres "bricole" il y a seulement un an, ils s'ameliorent de trimestre en trimestre 
et on peut considerer aujourd'hui qu'ils ne sont pas loin d'atteindre leur 
majorite. Eh outre les assembleurs actuels s ' accompagnent d'une foule 
d 'utilitaires : desassembleur pour transformer un programme en langage-machine en 
programme en assembleur, tracjage pour aide a la mise au point et table de 
references pour retrouver toutes les instructions qui utilisent une etiquette 
donnee. L'existence de ces utilitaires vous simplifie la vie. 

Nous prendrons comme assembleur de reference le LISA car, d'une part, c'est le 
plus repandu en France et, d 'autre part, son auteur. Randy Hyde, est bourre 
d'idees qu'il a le bon gout de nous f aire partager, non seulement en les 
incorporant dans ses logiciels, mais aussi en nous les commentant dans differentes 
publications (revue Applesauce et livre de programmation du 6502) et meme a 
I'interieur des listings-source de ses programmes. 

LISA - prononce "Lailleza" comme Minelli- Interactive Assembleur est un assembleur 
conversationnel de format libre. II a le grand avantage, comme 1' INTEGER, de 
signaler vos erreurs de syntaxe au fur et a mesure de I'ecriture sans avoir a 
attendre le premier passage. Eh outre il met a votre disposition un large eventail 
de "pseudo-codes", commandes qui s'executent pendant 1' assemblage. II y en a pour 
chaque situation ! 

MANUELS DE PROGRAMMATION EN ASSEMBLEUR 

Dans ce domaine egalement, I'evolution est rapide. II y a encore un an nous 
n'avions a nous mettre sous la dent que des livres sur 1' assembleur pour le 
microprocesseur 6502 en general, ce qui permet de programmer 1' Apple mais ne tient 
aucim compte de la mine de programmes tout faits que sont le Moniteur et le DOS, 
sans parler de 1 ' Interpreteur BASIC. Toutes les routines de gestion de I'ecran, du 
clavier et des autres peripheriques existent deja. II convient simplement d' avoir 
la cle d'acces. 

Ces livres sur le 6502 sont d'ailleurs excellents. Eh dehors du Rodnay Zaks, que 
je ne connais que de reputation (bonne, merci et vous!), mon coeur balance entre 
le R. Findley (6502 Software Cookbook, chez Scelbi) et le L.A. Leventhal (6502 
Assembly Language Programming, Osborne /McGraw Hill) . 

L' Apple-o-mane (ou Pommolatre) f rangais est desormais comble . II peut apprendre 
1' assembleur specif ique de son P.S.I, favori et dans sa propre langue . Eh effet, 
Nicole Breaud-Pouliquen a publie son Tome III de la Pratique de 1' Apple (Edition 
du P S I ) . En collaboration avec Daniel- Jean David, elle nous disseque le 
langage-machine et 1' assembleur du 6502. II est important d' avoir un livre 
specialement oriente APPLE, car le prcgrammeur est souvent appele a utiliser 
directement des routines du Moniteur. II serait titanesque d' avoir a les 
re-ecrire, sans compter qu'il serait difficile de faire aussi bien que Steve 
Wozniac. Comme le disent (aussi) les Americains a tout bout d' article : "II est 
inutile de reinventer la roue!". 
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Le Don & Kurt ]hman , "Apple Machine Language" edite par Reston /Prentice Hall est 
lui aussi specif ique. Le pas-a-pas tres "enseignement programme" est agreable a 
suivre . Pour les amateurs de sons et de graphiques, il est fait de larges 
incursions dans ces domaines. Malheureusement le livre s'arrete au moment ou 5a 
devient vraiment interessant, c'est a dire au moment d'aborder le veritable 
assembleur, avec etiquettes symboliques et pseudo-codes. A conseiller neanmoins au 
debutant, s'il lit 1' Anglais. 

Le bouquin que j'attendais personnellement avec le plus d ' impatience, le Randall 
Hyde, est enfin sorti . II s'agit de "How anyone can program the Apple II - Using 
6502 assembly Language". II est parfait pour les utillsateurs de LISA, car il 
donne un tas de tuyaux complementaires (utilisation des pseudo-codes LISA et du 
TRACE 65 pour la mise au point des programmes). Mais bien qu'il s'intitule de 
lui-meme "Best Seller", son manque d ' universalite empeche de le recommander a des 
gens qui n'auraient pas 1' intention d'utiliser le LISA. Ces derniers par centre ne 
pourront s'empecher d' avoir I'eau a la bouche a I'annonce des futurs volumes de la 

collection "Advanced 6502 L/M programming (Graphics, Disk I/O )" et "Z80 and 

6809 programming on Apple". 

Ehfin, pour rester dans les nouvelles allechantes, signalons la sortie aux U.S. de 
"Everyone's Guide to Assembly Language". C'est la reunion des exceptionnelles 
chroniques parues dans SoftTalk depuis plus d'un an. Elles sont signees Roger 
Wagner, auteur d'Appledoc (voir Pom's numero 2) et patron de la societe de 
Software S D S . Ce livre constitue 1' initiation la plus progressive et la plus 
complete au langage-machine de 1' Apple et a 1 ' assembleur . 

LES SOFTS UTILES 

L'amateur est noye sous les logiciels mis a sa disposition . C'est peut-etre cette 
multiplicite qui lui a fait pref erer 1' APPLE . Mais ces logiciels, ainsi que les 
dispositifs "hardware" mis sur le marche, ne sont pas tous d'une egale utilite . 
Dans chaque numero de Pom's, des articles nous permettrons d'y voir plus clair et 
de selectionner, par exemple, les aides a la programmation les plus efficaces. 

Des qu'il nous f aut ecrire, a titre prof essionnel ou prive, un systeme de 
traitement de texte est le premier pas vers la rentabilisation de notre "micro". 
Personnellement, j'ai un gros faible pour "Applewriter" . C'est un bon soft, dont 
1 ' acquisition est peu onereuse. Attention a Applewriter II, annonce par Apple 
Computer ! II parait qu'il "tire dans les coins". Mais il sortira en version 
protegee... et il ne sera pas donne. Notre Applewriter actuel, s'il est un peu 
frustre, en ce sens qu'il lui manque un certain nombre d' options, disponibles sur 
SUPER SCRIBE et autres MAGIC WINDOWS, est perfectible. La plupart des options ou 
gadgets qui lui font defaut peuvent lui etre greffes. II suffit pour cela de 
parler sa langue, le langage-machine. 

A mes yeux, la plus belle qualite d ' Applewriter est d'etre un systeme ouvert . II 
existe nombre de "softs sophistiques" qui vous rendent malade. Aussi perf ectionnes 
soient-ils, ils ne peuvent toujours correspondre a ce que vous en attend ez et il 
arrive fatalement qu'un Jour ou 1 'autre vous souhaitiez leur faire subir une 
petite operation de chirurgie esthetique. II y a un true en trop, une commande 
dont 1' execution vous parait exasperante, ou un true qui manque, une idee a vous 
qui vous parait geniale et dont la mise en oeuvre vous simplif ierait bien la vie. 
Bref, vous voulez apporter des modifications. Helas pas de "modif" possible. Ces 
softs sont generalement cadenasses et leurs auteurs se sont evertues, par psychose 
du piratage, a vous empecher d'en trouver la cle . 

Avec Applewriter, tout est possible ! Non seulement on trouve dans le commerce des 
programmes tout faits ( AppleWritef Extended de chez Brillig Systems, Proportional 
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Text Formatter pour les Centronics 737/9 de Micro-Media, dont les produits n'ont 
pas I'air d'etre tres diffuses, ou encore "Go-Between", un programme qui, d'apres 
Apple-Europe, serait disponible en Angleterre), mais encore n'importe qui peut 
s'ecrire les modifs, a condition de posseder suffisamment le langage-machine . 
C'est meme la meilleure maniere de se familiariser avec le langage-machine, (cf . 
la modification qu'a ecrite Sheila Widnall pour utiliser son adaptateur de 
minuscules "Paymar Chip" avec 1 ' Apple-Writer ( Call-A.P.P.L.E. de Septembre 80), 
alors qu'un mois auparavant elle ignorait 1' existence du LDA et les joies de la 
gestion de pile!). 

Je suis resolument hostile aux adaptateurs de minuscules qui donnent de bien 
vilains caracteres. De meme je pense que les cartes 80 colonnes ont un interet 
tres limite . Je me satisfais parfaitement de ce que 1' Apple affiche sur I'ecran. 
Par centre je tiens a ce que mon imprimante ecrive en frangais. 

La modification que je vous propose aujourd'hui et qui nous servira de tremplin 
pour nous familiariser avec le langage assembleur permet de disposer de la 
quasi-totalite des lettres f ran Raises accentuees que 1' imprimante est capable de 
produire. II faut bien entendu que 1' imprimante dispose d'un jeu de caracteres 
frangais, mais c'est le cas le plus repandu et c'est le cas en particulier des 
Centronics 730-2 et 737/739. Les seuls caracteres pour lesquels nous n'apportons 
pas de solution immediate sont le trema ^t I'accent circonflexe, ces caracteres 
qu ' Applewriter salt editer, mais ne sait pas positionner sur les lettres 
correspond antes . Pour le moment, nous non plus , nous ne savons pas les imprlmer 
et nous ne saurons pas le f aire avant d 'avoir resolu le delicat probleme de 
I'espacement arriere sur les imprimantes a lignes. Rassurez-vous, la solution 
exlste et elle f era I'objet d'un prochain article. 



CARACTERES FRANCAIS 



Sans la moindre modification il est possible d'obtenir (manuel Apple Writer, 
extraordinary characters, p. 31 ) les caracteres suivants: 



e ° e 



e CTRL N 
' ESC CTRL N 
e SHIFT M 
§ ESC SHIFT M 
SHIFT N 



CRTL SHIFT P 
ESC CTRL SHIFT P 
ESC SHIFT N 



La modification que nous proposons est directement inspiree du "patch" propose 
par Lou Rivas pour utiliser le dispositif "Lower Case Adaptor" avec AppleWriter 
(Apple Orchard, Automne 1980). Cette modification permet d'imprimer le u, le g et 
le trait mode soulignage, en appuyant simultanement sur trois touches (CTRL A et, 
suivant le cas, la touche Barre oblique ou la touche Moins): 

u CTRL A / 
g ESC CTRL A / 
ESC CTRL A - 

Apres cette modification, la totalite des caracteres ASCII 22H a 255 peut etre 
affichee sur I'ecran ( il faudra se familiariser avec les nouveaux symboles ! ) . 
Plus important, il est desormais possible de produire sur I'imprimante la 
quasi-totalite des lettres frangaises accentuees. 

II est imperatif que le programme modifie soit appelle TEDITOR car apres 
1' impression (par "PRINTER") le retour a I'editeur se fait par "BRUN TEDITOR" (en 
langage-machine... of course). Si vous desirez conserver le programme original sur 
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la meme disquette (on ne salt Jamais!), prenez le soin, avant toute modification, 
de changer son nom. 

MODE D'EMPLOI 

II faut commencer par ecrire le "patch" (moins frangais, mais plus joli que 
"verrue") en langage-machine . Nous aliens utiliser LISA. Tout autre Assembleur 
fera 1' affaire. Si on utilise le Mini- Assembleur il faut prendre particulierement 
soin des adresses ou doivent s'executer les branchements . Mais en 1' occurence, la 
tache est grand ement facilitee par la presence du listing d 'assemblage LISA. 

II reste encore la solution qui consiste a taper directement les instructions en 
HEXA avec la fonction "CHANGE MEMORY" du Monitor, ultime recours de celui qui n'a 
pas encore d ' assembleur . 

Nous prendrons comme origine $1848, qui se trouve en dehors du programme TEDITOR. 
Le pseudocode "ORG" s'occupera de tout. Une fois le programme assemble, il 
convient de le sauver sur disquette. Pour cela faire "BSAVE 
CARFRAN. OBJ, A$ 1848, L$50" . Le patch fait moins de 80 octets, mais il vaut mieux 
prevoir trop large que trop juste. N'oubliez pas que sur la disquette vous 
enregistrez par multiples de 256 octets (100 en hexadecimal) et qu'en consequence 
1' avarice n ' est pas payante! Tellement peu payante que, entre membres 
d ' Apple-holic Anonymous, Je peux bien vous confesser qu'il m'est arrive de perdre 
trois heures a rechercher une erreur dans un programme en langage-machine, que 
J 'avals tout simplement ampute du dernier octet. Eh effet, pour calculer la 
longueur de mai "BSAVE", j' avals retranche I'adresse d' origine de I'adresse de fin 
et J 'avals ainsi escamote un octet... C'est un grand classique, moins grave que 
d'oublier d'eteindre quand on retire une carte... mais tout aussi populaire ! 

Le cote farce de cette panne ne vous echappera pas quand je vous aural dit que, 
aux premiers essais, mon programme "marchait comme sur des roulettes". Pour le 
tester, j 'avals en effet fait suivre mon BSAVE d'un BRUN, sans prendre la 
precaution de vider la memoire et du coup j 'avals recupere mon octet final, 
sagement reste a sa place en la circonstance . 

PRECAUTIONS ET SOINS 

Pour vous eviter une pareille mesaventure, je vous conseille la manoeuvre 
prophylactique suivante : avant de recharger un programme a tester, utilisez le 
"MOVE MEMORY" du Monitor pour mettre a zero une zone aussi grande que possible. 
Par exemple, en supposant que votre programme de quelques centaines d' octets 
debute en $800, passez en Moniteur (CALL-151). Puis tapez : 

800:0 

80K800.2000M 

Le TEDITOR prend chaque caractere du texte que I'on est en train d'editer et lui 
fait subir un certain nombre de traitements pour voir de quoi 11 retourne ( Lettre 
Majuscule, si precedee d'un Escape, minuscule, ou caractere de controle 
correspondant a une commande du programme). Puis, s'il s'agit d'un caractere du 
texte proprement dit, il lui fait subir un changement radical de code. L' Apple II 
modifie legerement le code ASCII pour son usage interne. II lui ajoute un bit a la 
position la plus significative de 1' octet (on parle alors d ' ASCII negatif). 
Applewriter le secoue bien davantage : les majuscules sont descendues dans la zone 
des caracteres en INVERSE ($01 a $1A), les minuscules prennent la place des 
majuscules en NORMAL ($C1 a $DA), quant aux signes de ponctuation et aux chiffres, 
lis viennent se placer avant les majuscules ($A1 a $BF) . 
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Quand Applewrlter a finl de tester le caractere a ecrire (au moyen d 'instructions 
CMP) at lui a fait subir les conversions voulues (avec des AND et des ORA), il le 
range dans une chaine, dont I'adresse de depart se trouve dans la memoire $28 et 
qu'il fait prcgresser en incrementant le registre -Y. II s'agit de I'adressage 
indirect post-indexe par Y que nous retrouverons plus loin. 

Les Modes d'adressage tres varies sont un des points forts du 6502, mais aussi un 
sujet de perplexite pour le neophyte. Pour s'y retrouver, il suffit d'appliquer 
les conventions classiques suivantes: 

$ renvoie a I'adresse 

, ajoute a I'adresse la valeur du registre nomme apres la virgule 

() donne I'adresse de I'adresse. C'est une boite aux lettres. 

£$ n'indique pas une adresse, mais une constante a utiliser iramediatement . 

( Ne vous etonnez pas si, sur certaines imprimantes, le jeu de caracteres frangais 

change le signs "pound" -notre signe mathematique sensiblement egal- en slgne 

Livre Sterling ) . 

MISE EN OEUVRE 

A I'aide de I'assembleur de votre choix vous avez prepare sur une disquette le 
fichler Dinaire CARFRAN.OBJ, ou encore vous possedez la disquette Pom's qui 
contient ce fiehier. 

Vous disposez egalement d'une copie d ' Applewriter . II est recommande de ne pas 
utiliser 1' original ... 

1) Vous chargez la Modif : 
BLOAD CARFRAN.OBJ 

2) Vous mettez votre disquette Applewriter et vous chargez I'Bditeur: 
BLOAD. TEDITOR 

Pour garder une copie de securite, vous changez le nom : 

UNLOCK TEDITOR 

RENAME TEDITOR, VIEUX TEDITOR 
LOCK VIEUX TEDITOR 

3) Vous passez en Moniteur (CALL- 151) et vous utilisez 1 ' instruction pour changer 
la memoire (Reference Manual p. 44), afin d'introduire les nouvelles valeurs 
suivantes : 

*811: 8D 10 CO 4C 48 18 

*3D0G ou 9DBFG (retour a 1' Applesoft) 

4) Vous enregistrez votre nouvel Editeur sur disquette: 
BSAVE TEDITOR, A$803, L$186C 

5) Apres 1' avoir essaye, vous verrouillez le nouvel editeur ; 
LOCK TEDITOR 

REMARQUE: Si vous ne disposez ni d'un assembleur ni de la disquette Pom's, vous 
pouvez encore vous en sortir : vous commencez directement au pas 2) et quand vous 
arrivez au pas 3) vous enregistrez egalement la modif en HEXA a partir de *1848: 
Bien entendu vous vous limitez au code objet qui est dans la partie gauche du 
listing d ' assemblage . 
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LIGNES SOURCE POUR ASSEMBLAGE AVEC LISA 



TTL "CARACTERES FRANCAIS" 
ORG $1848 

Le pseudocode TTL permet, en LISA Version 2.5, d ' imprimer le titre au debut de 
chaque page de 1 ' Assemblage . Eh outre, si vous disposez d'une Horlcge Temps Reel, 
du type Mountain Computers (nee Mountain Hardware), la date et I'heure 
s ' imprimeront a cote du titre, ce qui est une fagon agreable d' assurer la 
pagination d'un long listing. 

Le pseudocode ORG est lui indispensable; il permet a I'Assembleur de calculer 
I'adresse des branchements . II est de la responsabilite du prqgrammeur de placer 
son programme objet a I'adresse indiquee au moment de I'execution (a moins que son 
programme ne soit ecrit de fagon a pouvoir etre deplace -"relocatable" disent les 
anglophiles-, c'est-a-dire ne comporte aucun saut a une adresse absolue. Si ce 
n'est le cas, il faut faire appel a un programme de deplacement. (cf . J.-F. 
Duvivier Deplacement des programmes en Assembleur, Pom's N 1) 

C'est une bonne habitude que d'ecrire, autant que faire se peut, des programmes 
recasables ("relocatable"). II n ' en est evidemment pas question dans notre exemple 
puisqu'il s'agit d'une modification qui doit se raccorder a une adresse bien 
definie (par JMP $1848 que nous avons place en $8l4 dans AppleWriter) . 

Le pseudocode OBJ, qui indique I'adresse de depart de 1' Assemblage du code-objet 
est inutile ici car, a moins d'en decider autrement et de le specifier 
expressement avec OBJ, ORG genere automatiquement un OBJ a la meme adresse (en 
LISA) . 

2. EQUATE 

Le pseudocode Equate (EQU) permet d'affecter une etiquette a une cellule de 
memoire ou se trouve une valeur ou un debut de programme. S'il s'agit d'un 
programme, il suff ira par la suite 'de faire un saut inconditionnel (JMP) ou un 
branchement conditionnel (BEQ) a cette etiquette. C'est beaucoup plus gai que la 
solution du BASIC, qui consiste a definir un numero de ligne fixe au point 
d' entree du sous-prqgramme . 

Les "equates" servent beaucoup pour les sous-programmes du Moniteur. Si le 
sous-programme est en ligne (a I'interieur du programme principal), vous faites 
figurer simplement I'etiquette avant la premiere instruction (cf . BAROBL infra). 
L' Assembleur LISA salt qu'il s'agit d'une etiquette parce que vous ne la faites 
pas preceder d'un espace, alors qu'il en faut au moins un avant un code 
instruction . 

Dans le dialecte specif ique a LISA, un equate a une memoire en page zero ($00 a 
$FF) s' ecrit EPZ (equate page zero) et ne sera suivi, bien entendu, que de deux 
chiffres hexa au maximum. 



3. TEXTE EPZ $0028 

II s'agit de la memoire ou le programme va chercher I'adresse de la chaine de 
caracteres qu'il est en train de constituer a partir des entrees au clavier. 

4. CLAVIER EQU $C000 

Quand le caractere preleve par un LDA a cette adresse est "negatif" (bit 7, le 
plus signif icatif , positionne), c'est qu'une touche du clavier a ete enfoncee. Cet 
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etat sera constate par I'echec du test BPL. 

5. STROBE EQU $C010 

Remet le bit le plus signlficatif a zero pour pouvoir accepter une nouvelle entree 
clavier. Le prcgramme va effectuer une serie de tests afin de voir si les touches 
qui nous interessent ont ete activees, pour se rebrancher finalement au point d'ou 
est partie la derivation (au moyen d'un RTS) . Si les caracteres testes sont bien 
ceux que nous recherchons, ils doivent etre stockes entre temps dans la chaine de 
caracteres qu'utilise A/W. Ceci est effectue par STA ($28), Y suivi d'un INY pour 
mettre a Jour le pointeur. 

6. VALEUR IMMEDIATE - ADRESSE - ADRESSE DE L'ADRESSE 

LDA : Load Accumulateur permet de placer une valeur dans 1 ' accumulateur . 

Cette valeur peut etre contenue dans 1' instruction : LDA £$Valeur en hexa, indique 
qu'il n'y a pas a chercher loin I'adresse de la valeur puisqu'il faut prendre 
litteralement la valeur contenue dans 1 ' instruction . On parle alors d'adressage 
immediat . 

La valeur peut etre recherchee directement dans une cellule de memoire dont 
I'adresse est contenue dans 1 ' instruction : LDA $ adresse (en Hexa). C'est 
I'adressage direct. 

Qi peut encore indiquer dans 1' instruction I'adresse de la cellule ou se trouve 
I'adresse de la valeur : LDA ($ adresse de I'adresse bu se trouve la valeur). Ce 
systeme de boite aux lettres s'appelle I'adressage indirect. II permet d' utiliser 
la meme instruction pour toute une serie de valeurs. L' adresse de la boite aux 
lettres est fixe, seul son contenu varie. 

Ihe autre maniere de faire varier I'adresse consiste a associer un registre (X ou 
Y) dont le contenu vient s'ajouter a I'adresse. II s'agit de I'adressage indexe. 
L'adresse indiquee dans I'instruction ne varie pas, mais on fait prqgresser le 
registre . 

Si on marie I'indexage avec I'adressage indirect an obtient I'adressage indirect 
indexe. On peut de la sorte faire varier I'adresse de la "boite aux lettres", 
adressage indirect pre-indexe par X, ou faire varier I'adresse trouvee dans la 
boite aux lettres, adressage indirect post-indexe par Y. Ici le role des deux 
registres d' index est nettement differencie, ce qui est bien agreable pour eviter 
les confusions ! Ainsi LDA ($28), Y permet de charger 1 ' accumulateur avec le 
contenu de I'adresse A+Y, A etant I'adresse contenue dans la memoire HO (28 en 
hexadecimal). Les beautes de I'adressage indirect post-indexe par Y resident dans 
le fait qu'il n'a pas besoin de toucher au contenu de la cellule 40 et qu'il 
suffit d ' incrementer le registre-Y (INY) pour faire progresser I'adresse ou I'on 
va lire ou stocker le caractere suivant . 

7. LIGNES 9 A 1 1 

CMP £$81 ; TOUCHES CTRL-A? 

BEQ BAROBL 

RTS 



Les branchements cond itionnels se font en deux temps. D'abord, on met en presence 
les quantites a comparer. Ici 1 ' accumulateur et la valeur 129 (81 en hexa). 
Ehsuite, on indique la condition et la branche a prendre si cette condition est 
remplie . 
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Eh BASIC cela donnerait: 



10 LET A = ACCUMULATEUR : LET B = 129 : REM 129=$8l 
20 IF A = B THEN GOTO 1000 

30 REM SO US- PROGRAMME BAROBL COMMENCE EN LIGNE 1000 
HO RETURN 

Remarque : la comparaison n'est pas a proprement parler une comparaison, mals une 

soustraction : avec CMP (et ses variantes) on soustrait la valeur a comparer' de 

1' accumulateur (ou du r^istre concerne). Lh indicateur est positionne selon le 

resultat de cette soustraction : 

C - pour Carry - s'il est posltif 

Z - pour Zero - s'll est nul 

N - pour Negative - s'il est negatif 

Tous ces indicate'urs (flags) sont combines dans un meme registre, le Mot d ' Etat 
(Status Word). L' instruction suivante de branchement conditionnel examine ensuite 
I'etat de 1' indicateur qui I'interesse. 

BEQ (Branch if equal), par exemple, ef f ectuera le branchement si la soustraction a 
donne pour resultat 0, c'est-a-dire si 1' indicateur Z - 1. Par centre le 
branchement ne sera pas effectue si 1' indicateur Z = 0. Surprenant, mais 

Iqgique Surtout si I'on considere que "0" veut dire Faux et que "1" veut dire 

Vrai . 



Si la comparaison ne donne pas I'egalite c'est qu'il ne s'agit pas de CTRL-A. 
Retour au programme principal (RTS). Par centre si c'est un CTRL-A il convient de 
determiner si celui-ci est accompagne d'une barre oblique ou d'un moins. 

Chaque fois que la bonne sequence de touches aura ete decelee, nous transf ormerons 
le code ASCII dans le code qui donnera le caractere desire a 1 'impression . Cela 
est effectue par un LDA avec adressage immediat, c'est a dire que I'on charge 
directement 1 ' accumulateur avec la valeur ASCII qui servira au programme PRINTER. 
La diff erenciation provoquee par I'emploi prealable de la touche ESC (majuscules) 
sera ef f ectuee dans le tronc commun du programme principal (TEDITOR classique). 

8. SOUS- PROGRAMME 
BAROBL: 

LDA CLAVIER 



BPL BAROBL 

CMP £$AF 
BNE TIRET? 
LDA £$DC 



;RIEN! RELIRE CLAVIER. 
; TOUCHE "/"? 



ACCEPTE: 



STA STROBE 
RTS 



;LE CLAVIER EST PRET A 
; ACCEPTER UN CARACTERE 



TIRET?: 



CMP £$AD 
BNE ACCEPTE 
LDA £$DF 
BNE ACCEPTE 
STA ( TEXTE), Y 
INY 
RTS 



TOUCHE "-"? 
RIEN AU NUMERO.FAITES VOS JEUX! 
SOULIGNERA A L' IMPRESSION 
STROBE MET BIT? A POUR LIRE 
RANGE LE CARACTERE TRAITE 
DANS LA ZONE- TAMPON 



END 
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JSR (Jump to subroutine) execute un branchemait incondltionnel . II est au JMP ce 

que le GOSUB est au GOTO. C'est-a-dire qu' il s' attend a trouver ulterieurement un 
RTS (Return from subroutine), 1' equivalent du RETURN du BASIC. 

BNE (Branch if not equal) ne doit guere poser de probleme si on a compris le BEQ. 
Le branchement sera effectue si I'indicateur Z (dans le Mot d'Etat) est egal a 
zero . 

STA (Store accumulateur ) est la manoeuvre inverse de LDA. II transfere le contenu 
de 1 ' accumulateur dans la memoire specifiee. Ici nous utilisons done I'adressage 
indirect post-indexe par Y. Nous rangeons le contenu de 1 ' accumulateur a I'adresse 
obtenue en ajoutant le contenu de la boite aux lettres etlquetee "TEXTE" (d'apres 
I'EPZ on salt qu'il s'agit de la cellule $28 en hexa, solt 40 en decimal, qui 
indique le point de depart de la chaine de caracteres) au contenu du registre Y 
(qui, lui, prcgressera d'une unite au prochain INY) . 



LISA 2*5 CARACTERES FRANCAIS 



0800 






1 




TTL 


"CARACTERES 


FRANCAIS" 


18''}8 






2 




ORG 


$1848 




IB^B 






3 


f 








0028 






^ 


TEXTE 


EPZ 


$0 028 




15 01 






5 


DISQUE 


EQU 


*1501 




COOO 






6 


CLAVIER 


EQU 


$C000 




CO 10 






7 


STROBE 


EQU 


$C010 




18^8 


C9 


81 


8 




CMP 


♦ *81 


J TOUCHES CTRL-A? 




FO 


01 


9 




BEQ 


BAROBL 




18 4C 


60 




10 




RTS 






IB-'^D 






11 


BAROBL! 








IS-^JD 


AD 


00 CO 


12 




LDA 


CLAVIER 




1850 


10 


FB 


13 




BPL 


BAROBL 


JRIEN! RELIRE CLAVIER. 


1852 


C9 


AF 


1^ 




CMP 


**AF 


JTOUCHE "/"? 


185^. 


DO 


06 


15 




BNE 


TIRET? 




1856 


A9 


DC 


16 




LDA 


«$DC 




1858 






17 


accepte: 








1858 


8D 


10 CO 


19 




STA 


STROBE 


JLE CLAVIER EST PRET A 


185B 


60 




19 




RTS 




; ACCEPTER UN CARACTERE 


185C 






20 


TIRET?: 








18 5C 


C9 


AD 


21 




CMP 


«$AD 


; TOUCHE "-"? 


185E 


DO 


F8 


22 




BNE 


ACCEPTE 


JRIEN AU NUMERO«A VOS MISES ! 


1860 


A9 


DF 


23 




LDA 


**DF 


JSOULIGNERA A L' IMPRESSION 


1862 


DO 


F^ 


2^ 




BNE 


ACCEPTE 


{STROBE MET BIT7 A POUR LIRE 


186^ 


91 


28 


25 




STA 


<TEXTE) »Y 


{RANGE LE CARACTERE TRAITE 


1866 


C8 




26 




INY 




{DANS LA ZONE-TAMPON 


1867 


60 




27 




RTS 






1868 






28 




END 







3CALL 


-151 












*1848 


♦ 1868 












1848- 


C9 81 FO 


01 


60 


AD 


00 


CO 


1850- 


10 FB C9 


AF 


DO 


06 


A9 


DC 


1858- 


8D 10 CO 


60 


C? 


AD 


DO 


F8 


1860- 


A9 DF DO 


F4 


91 


28 


C8 


60 


1868" 


00 
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Afin de mieux 
tirer profit de toutes 
les possibilites 
d'APPLE, 
et de ses extensions. 
Loin des contacts 
anonymes, 
pour un rapport 
plus humain, 
des revendeurs 
reqionaux specialises 
vous proposent 
des logiciels sur mesure, 
standards, ou 
d'apprentissage. 
Un service technique 
avant et apres-vente. 
N'hesitez pas a contacter le 
reyendeur le plus proche 
pour un conseil 
ou un renseignement 



qppkz 



en province 



Annecy/Faverges 

74210 

Bayonne 

64100 

Bordeaux 

33000 

Clermont-Ferrand 

63000 

Epernay 

51200 

Lyon 

69003 

Marseille 2 

13000 

Montpelller 

34000 

Nancy/Laxou 

54250 

Orleans 

45000 

Perplgnan 

66000 

Rouen 

76100 

Strasbourg 

67000 

Toulon 

83100 

Valenciennes 

59300 



EUROPROCESS 

Si6ge social : Doussard 
(50) 44.31.12 

LE CALCUL INTEGRAL 

3, rue Aristide-Briand 
(59) 55.43.47 

BOUTISOFT 33 

9, rue de la Lande 

(56) 91.55.08 

NEYRIAL 

5, Bd Desaix 

(73) 35.02.70 

MAGENTA GESTION 

7, av. A.-Th6venet Magenta 
(26) 53.19.93 

CIRCE 

9, rue P.-Florence 

(78) 54.31.95 

ORDITEL 

Siege social : BELCODEN 
(42) 04.44.00 

IFI-MICRO INFORMATIQUE 

9-12, rue Castllhon r!FNTFR 

(67) 58.58.28 OtIMItK 

SEMITEC 

69, rue Mareville 
(8) 340.43.38 

AMC 

13, rue des Minimes 
(38) 62.62.58 
MAB 

2, place de Catalogne 

(68) 34.04.46 

CONSEIL COMPUTER 

20, qua! Cavelier-de-la-Salle 
(35) 63.36.06 

CILEC 

18, quai Saint-Nicolas 
(88) 37.31.61 

S I A 

Lepaillon, avenue de Brunet 
(94) 23.74.30 

MICROMEGA 

38, rue de Famars 
(27) 46.89.22 



Si cette publicite vous interesse. contactez le 
CALCUL INTEGRAL 



Contrdlez le nettoyage memoire 



Guy Mathieu 



Un article de Gerard MICHEL paru dans le numero 2 de POM'S etudie I'effet de 
differentes methodes de "Garbage Gollection" pour nettoyer la memoire centrale des 
vieilles chalnes qu'elle contient : 

- "garbage" automatique par Applesoft, 

- FRE (0) qui force le "garbage", 

- d'autres "FRE", par exemple FRE (16) avec un programme approprie en langage 
machine . 

II peut etre interessant de voir de plus pres comment fonctionne le "garbage 
collection", en vue de choisir la methode la plus convaincante pour un programme 
donne. Uhe fa<jon de le f aire est de visualiser sur ecran graphique les stades 
successifs de 1' occupation memoire, ce que fait le programme liste ci-apres. 

L' image ecran dont le fac-simile est reproduit ici montre que le "garbage" 
automatique par Applesoft est fait au dernier moment, quand de la place doit 
ef f ectivement etre degagee : il necessite alors un certain temps d'attente (selon 
les programmes, ce temps, souvent chiffre en secondes, peut depasser la minute). 

Un "garbage" force regularise le processus et ne demande que des temps unitaires 
f aibles . Mais bien souvent, la somme de ces temps unitaires atteint, et depasse 
meme, parfois notablement, le temps total exige par le "garbage collection" 
automatique . 

Le choix entre diverses fagons de nettoyer la memoire se pose par consequent en 
des termes differents, car on ne peut plus parler d ' optimum general . 

En mode conversationnel, on preferera generalement des attentes courtes, meme si 
le temps total est plus long : psychologiquement, c'est une solution mieux 
acceptee; techniquement, le temps le plus long est de toute fagon eelui qui depend 
de I'operateur. 

II n'en va pas de meme pour les travaux en temps differe ou seml-differe (par ex. 
: chargement en memoire centrale d'un gros f ichier d' index). 

Quelques commentaires sur le programme 

Les instructions 60 a 6? etudient la composition et la position sur ecran de la 
chaine de caracteres destinee a former les nombres de I'echelle. 

- Les instructions 50 a 59 constituent un sous-programme de dessin de chiffres. 

Les instructions 1500 a 1530 visent a mettre a egalite les 3 cas etudies : un 
"LOMEM" remet a la zone de pointeurs cependant que la memoire 40185 
(indestructible par le DOS) contient les valeurs successives d'une variable Z 
destinee a reinitialiser la "boucle J". 

Enfin, chacun connait les vertus des memoires 111 et 112 (instruction 8l) qui 
contiennent la valeur decimale de la plus basse memoire occupee a chaque instant 
par un tableau de "strings". 
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HOME 

5 D* CHR* (^) 

10 REM INITIALISATION 

11 LOMEM: 16385: REM PROTECTION 

ZONE HGR 
13 POKE -101 15, 50 
15 DIM A*(150) 

20 REM DESSIN DU CADRE 

21 HGR : HCOLOR= 2 

22 HPLOT 50,0 TO 50,150 TO 270,1 

50 TO 270,0 

23 HPLOT 86,1^5 TO 86,150 

24 HPLOT 186,1'<»5 TO 186,150 

25 FOR Y := TO 150 STEP 50 J HPLOT 

50, Y TO 55, YJ NEXT 

26 REM ECHELLES 

27 FOR J := TO 3 

29 ZY% = 50 x J + 8 

30 ZXX = 36 - J X 8: IF ZXX < 20 THEN 

ZX% := 2 

31 ZA* = STR* (J * 50) 

32 GOSUB 60 

33 NEXT J 

3-^ ZX% = 70JZY% = 159:ZA* - "2000 
0": GOSUB 60 

35 ZXX == 170{ZY% « 159JZA$ = "300 

00": GOSUB 60 

36 HCOLOR= 3: VTAB 23: PRINT "NB 

ITER.: - OCCUP. MEM, 

: " 

37 GOTO 10 00 

50 HPLOT ZX% - 2,ZYX TO ZXZ + 2, 

ZYZ TO ZXZ + 2,ZYZ ~ 6 TO ZX 
Z - 2, ZYZ - 6 TO ZXZ ~ 2, ZYZ 
: RETURN 

51 HPLOT ZXZ, ZYZ TO ZXZ, ZYZ ~ 6 TO 

ZXZ ~ 2, ZYZ ~ RETURN 

52 HPLOT ZXZ - 2, ZYZ - 6 TO ZXZ + 

2, ZYZ - 6 TO ZXZ + 2, ZYZ - 4 
TO ZXZ ~ 2, ZYZ TO ZXZ + 2,Z 
YZ: RETURN 

53 HPLOT ZXZ - 2, ZYZ TO ZXZ + 2, 

ZYZ TO ZXZ + 2, ZYZ - 6 TO ZX 
Z - 2, ZYZ ~ 6: HPLOT ZXZ - 2 
,ZYZ - 3 TO ZXZ + 2, ZYZ - 3: 
RETURN 

5^ HPLOT ZXZ - 2, ZYZ - 6 TO ZXZ ~ 
2, ZYZ - 2 TO ZXZ + 2, ZYZ ~ 2 
: HPLOT ZXZ, ZYZ - 4 TO ZXZ,Z 
YZ: RETURN 

55 HPLOT ZXZ - 2, ZYZ TO ZXZ + 2, 

ZYZ TO ZXZ + 2, ZYZ ~ 3 TO ZX 
Z - 2, ZYZ - 3 TO ZXZ - 2, ZYZ 
- 6 TO ZXZ + 2, ZYZ - 6: RETURN 

56 HPLOT ZXZ - 2, ZYZ - 6 TO ZXZ - 

2, ZYZ TO ZXZ + 2, ZYZ TO ZXZ + 
2, ZYZ ~ 3 TO ZXZ ~ 2, ZYZ ~ 3 
: RETURN 



57 HPLOT ZXZ - 2, ZYZ TO ZXZ + 2, 

ZYZ ~ 6 TO ZXZ •- 2, ZYZ ~ 6t RETURN 

58 HPLOT ZXZ - 2, ZYZ TO ZXZ - 2, 

ZYZ - 6 TO ZXZ + 2, ZYZ ~ 6 TO 
ZXZ + 2, ZYZ TO ZXZ - 2,ZYZ: HPLOT 
ZXZ - 2, ZYZ - 3 TO ZXZ + 2,Z 
YZ - 3: RETURN 

59 HPLOT ZXZ + 2, ZYZ TO ZXZ + 2, 

ZYZ - 6 TO ZXZ - 2, ZYZ - 6 TO 
ZXZ - 2, ZYZ - 3 TO ZXZ + 2,Z 
YZ - 3: RETURN 

60 REM ECRITURE SUR ECRAN H.R. 

61 Z2Z = LEN <ZA$): FOR I = 1 TO 

Z2Z 

63 Z3Z = ASC ( MID* (ZA*,I,1)) - 

^7 

64 ON Z3Z GOSUB 50,51,52,53,54,5 

5,56,57,58,59 

65 ZXZ = ZXZ + 8 

66 NEXT I 

67 RETURN 

80 REM TRACE CARTE MEMOIRE 

81 MM = PEEK (112) jk 256 + PEEK 

(111) 

82 X == 50 + (MM ~ 16385) / 100 

83 HPLOT X,J TO 270, J 

84 VTAB 23: HTAB 12: PRINT J: VTAB 

23: HTAB 33: PRINT MM 

85 RETURN 

1000 REM CONSTITUTION DE STRINGS 

1010 FOR J + Z TO 49 + Z 

1020 A*(I) " "" 

103O FOR I := 1 TO 10 

lO-^IO A$(I) - A$(I) + "A" 

1050 NEXT I 

1060 IF J < 5 THEN VTAB 22: PRINT 
"'GARBAGE COLLECTION' AUTOMA 
TIQUE": GOSUB 80: GOTO 1500 

1070 VTAB 1 

1080 IF J > 99 THEN 1110 

1090 IF J / 4 INT (J / 4) THEN 

PRINT PRE (0): yiAB 22: PRINT 

"'FRE(O)' TOUTES LES 4 BOUCL 

ES 

110 GOSUB 80 : GOTO 150 
1110 PRINT PRE (0): ^JTAB 22: PRINT 
"'FRE<0) A CHAQUE BOUCLE , 

1120 GOSUB 80 
1500 NEXT J 
1510 LOMEM: 16385 
1520 DIM Ait (101) 

1530 Z = PEEK (40185): POKE 4018 
5,Z + 50 : IF Z < = 100 THEN 
10 
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Un exemple de HELLO 



Guy Mathieu 



Rien n'est aussi trlste que le programme "HELLO" dont sont affligees tant de 
dlsquettes ! 

Ih bon programme "HELLO" doit avoir deux caracteristiques : 

- dire de quoi il s'agit (et ceci qu' il s'agisse d'un programme sophistique 
destine a votre publiclte, ou d'une simpJte dlsquette de travail utilisee chague 
jour) . 

permettre de faire ensuite... ce qu'il est logique de faire : un "RON" sur un 
programme, ou I'obtention du catalogue. 

Accessoirement, il n'est pas desagreable que le programme "HELLO" soit 
extremement simple a mettre au point. 
Eh voici un exemple, 

Le cadre _est valable pour tous vos prcgrammes : votre nom ou celui de votre 
societe, un copyright, un sigle, -4. 

Dans le corps du programme, 2 instructions seulement servent a personnaliser . 

L' instruction 11 definira tous les titres : 

DATA X$, N,XI$, X2$,...N[de 1 a 3] 

Dans 1' exemple numero 1 ci-rdfess©us : 

X$ = "DISQUE DE TRAVAIL" 

N ^ 2 

XI$ = "PRESSER LA BARRE ,B' ESPACEMENT" 
X2$ = "POUR OBTENIR LE .CATALOGUE" 

L' Instruction 3OO lance la suite. Ici PRINT D$ "CATALOG": END 

Les choses ayant evolue, les programmes en cours de raise au point sont devenus 
operationnels . Votre dlsquette est prete a etre utilisee ( peut-etre a etre 
commercialisee . Poupquol pas ?) . 

L' instruction 11 devient : 

DATA HON PROGRAMME, 3, PROGRAMME DESTINE, A MGNTRER A TOUS, A QUEL POINT JE 
SAIS PROGRAMMER. 

L' instruction 300 devient, elle ; 
PRINT D$ "RUN MON PROGRAMME". 
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I D* = CHR* (-1) 

10 REM DATA DANS L'ORDREtNOM DE 
CODE DU PROGRAMMEfNOMBRE DE 
LIGNES DE TEXTE,LIGNES DE TE 
XTE 

II DATA DISQUE DE TRAVAIL , 2 » PRE 

SSEZ LA BARRE D ' ESPACEMENT » P 
OUR OBTENIR LE CATALOG 

20 REM LECTURE DATA 

21 READ Tl* 

22 LI = LEN (Tl*) 

23 HT = INT (18 ~ LI / 2) 

24 Tl* = " " + Tl* + " " 

25 TO* = LEFT* (" 

",L1 + 

^) 

30 READ NT 

31 FOR I 1 TO NT: read T*(I): NEXT 

50 EC = 31 IF NT == '\ THEN EC ^ 2 

51 VT = 8J IF NT < 2 THEN UT 

10 

100 HOME 



110 INVERSE : FOR I = 1 TO 3 STEP 
2t VTAB IJ HTAB HIX PRINT TO 
*: NEXT 

120 VTAB 2J HTAB HT: INVERSE I PRINT 

Tl* 
130 NORMAL 
140 FOR I == 1 TO NT 
15 VTAB VT: print T*(I) 
160 VT = VT + EC 
170 NEXT 

210 FOR I == 1 TO 4: PRINT i NEXT 

220 VTAB 20 : INVERSE X PRINT "CO 

PIC" 
240 NORMAL 
250 PRINT "GROUPE" 
26 PRINT "EUREQUIP 

-> BARRE D'ESPAC," 

270 PRINT "VAUCRESSON 

POUR CONTINUER" 
28 IF PEEK ( - 16384) < = 127 

THEN 280 
300 HOME t PRINT D*"CATALOG" 
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Analyse du directory Pascal (II) 



Michel Crimont 



A. Presentation generale 

Nous avons vu dans le precedent numero comment lire dlrectement le repertoire du 
dlsque Pascal sans passer par le "FILER". Nous aliens voir maintenant comment 
tirer parti de ces procedures pour placer automatiquement dans un fichier unique 
tous les repertoires de nos disques Pascal, ce qui permettra une recherche 
beauuoup plus alsee; 1' article du prochain numero montrera en complement comment 
realiser les procedures de selection dans le catalogue. 

Les types et variables precedemment definis restent valables, ainsi que les 
procedures et fonctions, excepte ECRIREP et LIREREP que nous n 'utiliserons pas 
ici. 

II convient d'ajouter le type ELEMENT qui est une ligne du catalogue definie comme 
un RECORD comprenant : 

GENRE : deux caracteres servant a definir 1 'utilisation et le type de programme; 
par exemple J ; Jeux, G : Graphisme, U : Utilitaire, M : Mathematiques -pour 
1' utilisation- et P : Programme, L : Librairie, U : Unit, etc. - pour le type -. 
NOMFILE : nom du fichier. 

NOMDISK : nom du disque comportant le fichier. 
NUMBOITE : numero de la bolte contenant le disque. 
DATEFILE : date de creation du fichier. 

Les ELEMENTS sont places dans un fichier nomme GARDE. L'item NUMBOITE de la fiche 

zero conserve le nombre de fiches du fichier. 

PAPIER : nom du fichier d ' impression . 

QUIT : Booleen d' arret du programme. 

IMP : impression si Vrai . 

NUMCAT : nombre de fiches du catalogue. 

NUMLINE : numero de la ligne courante sur I'ecran. 

Afin de rendre le programme tres fiable, il est fait usage de diverses procedures 
filtrant tout ce qui est entre par 1 ' utilisateur au clavier; par ailleurs, 
quelques procedures facilitent les affichages d'ecran. C'est ainsi que : 

MESSAGE : affiche une chalne de caracteres a la ligne Y et efface la fin de la * 
ligne . 

ALARME : efface I'ecran, sonne, affiche un message d'erreur et attend un [Return]. 
PRENCHAINE et ENTIER : permettent de prendre au clavier en toute securite et avec 
correction eventuelle par la fleche arriere une chaine de caracteres ou un entier; 
enfin un [Return] a la place d'une entree clavier renvoie la chaine ou 1' entier 
donne en Variable, ce qui permet de garder une valeur par defaut. 

TRAIT et TRAITFIN : permettent I'ouverture et la f ermeture du fichier impression 
avec edition d'un trait. 

CONTINUE : permet la lecture d'un ecran et attend un [Return] pour afficher la 
suite . 

ZEROELEM : donne une valeur par defaut a Element. 

DECODATE : renvoie une chaine de caracteres standard correspondent au type 
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d ' entree " Date" . 

AFFICHE : place a I'ecran une ligne du catalogue avec le numero de la f iche . 
IMPRIME : imprime une ligne du catalogue. 

RAPPEL : rappelle a la fin du programme qu'll faut replacer le disque systeme dans 
le lecteur 1 [£4:] . 

TITRE : affiche ou imprime les tetes de colonne. 

Le f onctionnement du programme est le suivant : une fois le programme charge 
apparaissent 4 options : 
E(nregistrer, L(ire, M(odifier, F( in . 

Si I'on demande 1 ' enregistrement, le disque dont le repertoire sera enregistre 
dans le catalogue sera place dans le lecteur 1 [£4:], le disque contenant le 
catalogue general dans le lecteur 2 [£5:3. 

Afin d'eviter toute erreur, le disque du lecteur 2 devra porter un nom 
particulier, ici "GARNET", le plus simple etant de prendre un disque Pascal 
formate, de lui donner le nom de "GARNET" et de placer dessus GATALOG . Cod e , si 
bien qu'il suff ira lorsqu'on voudra ajouter un repertoire au catalogue de f aire 
eX(ecute £5: CATALOG, le disque "GARNET" contenant ainsi a la fois le programme et 
le catalogue general . 

La Lecture ne permet aujourd'hui que la lecture du catalogue general. Elle sera 
perf ectionnee, pour permettre toutes les selections imaginables, dans le prochain 
numero . 

La Modification permet de modifier les elements d'une fiche; cette fiche apparait 
a I'ecran. Si un item ne doit pas etre modifie, il suff it de taper le [Return] 
pour garder la meme valeur, sinon on entre d'autres donnees. 

B. Les procedures. 

1. OUVERTURE 

ouvre le fichier GARDE s'il existe et attribue a NUMCAT sa valeur (nombre de 
fiches du catalogue). Si le fichier n'existe pas, il est cree et la premiere fiche 
enregistree (fiche non utilisee en dehors de NUMBDITE qui contient NUMGAT) . 

2. REMPLIR 

est charge de constituer une fiche a partir du repertoire du disque du £4: et des 
donnees complementaires entrees au clavier. II faut d'abord lire le repertoire 
avec LIREREP (4). Si ce repertoire ne peut etre lu, la procedure envoit un message 
d ' erreur . 

S' il est lu, on prepare une f iche vierge avec ZEROELEM, puis avec ENTETE on place 
le nom du disque et I'on demande le numero de la boite ou se range ce disque. Ges 
valeurs sont ensuite gardees dans LM pour tous les fichiers de ce disque, puis on 
fait appel a la procedure FILES qui propose un par un les fichiers et demande s'il 
faut les inclure dans le catalogue (ce qui permet d'inclure seulement les nouveaux 
fichiers d'un disque sans reprendre les anciens deja enregistres) . 

Si I'on garde un fichier, on garde son nom, sa date et I'on demande son type et 
son genre, puis on I'enregistre en place et I'on avance NUMGAT de 1. Quand le 
disque ne possede plus d 'autre fichier, on ferme le catalogue pour se mettre a 
I'abri d'une coupure de courant ou d'un incident et on 1' ouvre a nouveau. 

3. ENREGISTRE 

appelle simplement , de f agon iterative la procedure REMPLIR et donne les messages 
d'ecran necessaires pour les manipulations. 

4. LIRE et TRI 

permettent simplement d'editer le catalogue soit a I'ecran, soit sur 1 ' imprimante ; 
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ces deux procedures seront par la suite developpees pour permettre des selections 
dans le catalogue. 

5. MODIFIE 

affiche un numero quelconque du catalogue qu'il faudra done noter auparavant par 
une lecture et permet de modifier un item quelconque dans le cas par exemple ou 
I'on change un disque de boite ou un fichier de disque, ou encore si un programme 
a ete transforme en UNIT. 



C. Le programme principal. 

Le programme principal est tres simple : 

PRINFO : attribue les caracteres de controle d'ecran. 

OUVERTURE : controle 1' existence du disque "GARNET" dans le lecteur 2 et ouvre ou 
cree le fichier "DONNEES". 

Ehsuite, aff ichage du titre du programme et du nombre de lignes du catalogue, et 
attente des options. 

A la fin, mise a jour de NUMCAT sur la f iche zero de GARDE - fermeture du fichier 
et rappel d'inserer le disque systeme au cas ou I'on aurait place dans le lecteur 
1 un autre disque. 

Quelques perf ectionnements sont possibles au gre des lecteurs : 

1. II est possible de placer dans le lecteur 2 un -disque simplement formate sans 
nom particulier, auquel cas, lors de I'ouverture, le programme demande un nom pour 
ce disque (avec PRENGHAINE et 7 caracteres maximum); grace a la procedure EGRIREP, 
ce nom pourra etre place sur le repertoire du disque du lecteur 2i Le nom peut 
egalement etre prealablement declare en constante dans le programme, mais 
attention si vous faites demarrer accidentellement votre programme avec un disque 
quelconque dans le lecteur 2 ! 

2. A la fin du programme, il est possible d'essayer d'ouvrir un fichier systeme du 
lecteur 1. Si IORESULT=0, le disque systeme est dans le lecteur 1, sinon I'on 
passe a RAPPEL. 



OBRAIRIE LA NACELLE 

INFORMATIQUE • ELECTRONIQUE • AUTOMATISME • MICROPROCESSEUR 

TOUS OUVRAGES ET ABONNEMENTS 
FRANQAIS ET ETRANGERS 

Tous les ouvrages frangais ou etrangers signales dans cette revue peuvent etre obfenus ou commandes a La Nacelle 

2, rue Campagne-Premiere 75014 PARIS - Tel. 322 56 46 

Metro Raspail - Parking a la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 d 18 h 50, samedl fermeture d 17 h 50. 
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PROGRAM catalog; 



CONST MAXFILE 



■-77 \ 



TYPE 



CRTCOMMAND 

CHOIDECA 

DATE 



= ( EFEOS , EFEOL , INVERSE , NORMAL , DROIT » GAUCHE , TETE ) J 
=SET OF CHAR} 
RECORD 
« 1 ♦ ♦ 1 2 1 
« 1 « « 3 1 $ 



DISQUE 



=PACKED 
MOIS 
JOUR 
AN 

end; 

'RECORD 



NOMDISQUE 

B 

NBRFICHE 
C 



JARRAYCO, ,2 
tSTRINGCZ]? 

:integer; 
: integer; 
: integer; 
:date; 
integer 



OF integer; 



FICHIER 



D,E 

end; 

==RECORD 

DEBFICHIER {INTEGER; 

FiNFicHiER ;integer; 

TYPEFICHIERtO. .7; 

nomfichier istringcis]; 
dernbloc ; integer; 
datefichier;date 
end; 



ELEMENT 



VAR REPERTOIRE 



=RECORD 
GENRE 
NOMFILE 
NOMDISK 

numboite 
datefile 
end; 

;record 
yoL 

CATALOG 

end; 



;arrayi:i . .23 

istringcis]; 

jstringcz]; 

:integer; 

:date; 



OF char; 



end; 

numlecteur {integer; 

HOME » BS, EFL, EFB» SON, INV» NORM »CR: char; 

CHfCOM ;char; 
PAPIER itext: 

garde 



:disque; 

;ARRAYC1» ♦MAXFILED OF FICHIER 



:text; 

JFILE OF element; 
itr . T I li' I ♦ TKiTtrrcD ♦ 



NUMCAT , NUMLIGNE , I » J , K , L ; INTEGER ; 
LM {ELEMENT; 
QUIT, IMP {BOOLEAN; 

(!K ■ )tC) 

()K PROCEDURES DIVERSES x) 

FUNCTION lirerep(num;integer> {boolean; 

BEGIN 

(x*I~x) 

unitread ( num , repertoire , sizeof ( repertoire ) , 2 ) ; 
lirerep{=ioresult=0 

end; 



PROCEDURE 
BEGIN 



PRINFO; 
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h0mej==chr(12) ; efl.j=chr(29) j bs t=chr(8); cr :=chr(13); 
son j==chr(7); invt=chr(18); norm j =chr ( 20 ) j efb : =chr ( 1 1 ) 
end; 

PROCEDURE PRENRETURN; 
VAR SORT JCHAR; 
BEGIN 
REPEAT 

READ(KEYB0ARD,S0RT) 

until eoln( keyboard) 
end; 

FUNCTION PRENCAR(BONSETtCHOIDECA) :CHAR; 

VAR CH :char; 
BON : boolean; 

BEGIN 
REPEAT 

READ < KEYBOARD, CH ) ; 

IF EOLN(KEYBOARD) THEN CH:=CR; 

bon;=ch IN bonset; 

IF NOT BON THEN HRITE(SON) 

ELSE IF CH IN C '.."^'] THEN WRITE (CH) 

UNTIL bon; 
prencar:=ch 
end; 

FUNCTION oui:boolean; 
begin 

oui;«=prencar(c'0' ,'n']) in c'o' j 
end; 

PROCEDURE message(y;integer;s:string) ; 

BEGIN 

gotoxy(0,y) ; write (s,efl) 
end; 

procedure alarme(s;string) ; 

BEGIN 

gotoxy(0»1) ;write(son,efb) ; 
message(10»s) ; 

message < 12, 'faites <return> '); 
prenreturn 
end; 

PROCEDURE prenchaine(longmax;integer;bonset;ghoideca;var s;string) ; 

VAR SI :STRINGC1]; 

CONT ; string; 
begin 
si:=' ' ; 
cont;=' ' ; 
repeat 

if length(cont) = then si c 1 3 j =prencar( b0nset + ccr3 ) 
else if length(cont)=longmax then si c 1 3 t -prencar ( cgr , bsd ) 
ELSE sicid:=prencar(bonset+ccr,bsd) ; 

IF SICID IN BONSET THEN CONT J =CONCAT ( CONT , SI ) 
ELSE IF S1C13=BS THEN 
BEGIN 

write (es,' ',bs); 
delete (cont, length ( cont ) , 1 ) 
end; 

UNTIL S1C13=CR; 

IF LENGTH ( CONT ) <>0 THEN S:==CONT 
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else write <s) 

end; 



PROCEDURE ENTIER ( LONGMAX J INTEGER } VAR S I INTEGER ) t 
VAR SI :STRINGCi:j 
I JINTEGERJ 

coNT : string; 

OKSET tCHOIDECA} 
BEGIN 

OKSET :=C'0'»«'9'3jsi: = ' 'jcont: = "J 

REPEAT 

IF LENGTH(CONT)=0 THEN S 1 C 1 3 : =PRENCAR ( OKSET+CCR] ) 

ELSE IF LENGTH(CONT)=LONGMAX THEN SI C 1 ] : =PRENCAR ( CCR »BS] ) 
ELSE SlC13:=PRENCAR<0KSET + i:CR»esa) ; 
IF S1C13 IN OKSET THEN CONT : =CONCAT ( CONT , SI ) 
ELSE IF Sli:i3"BS THEN 
BEGIN 

WRITE(BS,' 'tBS)*, 

delete(cont,length<cont) ,1) 
end; 

until s1c1]=crj 

if length<cont)<>0 then 

BEGIN 

s:=o; 

FOR IJ=1 TO LENGTH<CONT) DO 

BEGIN 

S:=S)(clO;s:=S + (ORD<CONTCI]>-ORD( '0' ) ) 
END ; 

end else write<s) 
end; 

procedure trait j 
VAR I : integer; 

BEGIN 

REWRITE(PAPIER, 'PRINTER: ' ) ; 

FOR i:=l TO 79 DO WRITE ( PAPIER ,'=') ; 

writeln< papier) 
end; 

PROCEDURE TRAITFIN; 

VAR i;integer; 

BEGIN 

WRITELN ( PAPIER ) ; 

FOR i:=l TO 79 DO WRITE ( PAPIER ,'=') ; 
FOR i;=l TO 6 DO WRITELN(PAPIER) ; 

close ( papier ) ; imp i «false 
end; 

procedure continu; 

BEGIN 

message (22, 'pour continuer tapez <return> '); 

prenreturn; 

numligne:=6; 

GOTOXY ( 0,5) ; write (EFB) 

end; 

( )K ! !K) 

(X procedures generales specifiques de master catalogue sk) 

PROCEDURE ZEROELEM(VAR LtELEMENDJ 
BEGIN 

WITH L DO 
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BEGIN 

GENREi:i3:=='Z' } GENREC2:: = 'Z' J 

NOMFiLE j = NOMDiSK { = "; numboite:=o; 

WITH DATEFILE DO 
BEGIN 

Mois:=i ; jour:=i ;an:=i 

END 

END 

end; 

PROCEDURE DEC0DATE(DT?DATE;UAR STDATE : STRING ) ; 
VAR ST :STRINGJ 

PROCEDURE FAITSTRING(i:iNTEGER}VAR SISTRINOJ 
BEGIN 

s : == " ; 

STR(I,S) ; 

if length(s)=1 then s : =concat ( ' ' , s ) 
end; 

BEGIN 

stdate: = " ;sTj==" ; 

WITH DT DO 
BEGIN 

faitstring( jour,st) ; 
stdate:=goncat(stdate»st, '/' ) ; 
faitstring(moistst) ; 
stdate:=concat(Stdate,st, v ) ; 
faitstring(an»st) ; 
stdatej=concat(stdate,st) 

END 

end; 

PROCEDURE affiche(index:integer;var elm:element) ; 
VAR s :string; 

BEGIN 

if numligne=2i then continu; 
gotoxy(0,numligne) ; 
with elm do 

BEGIN 

WRITE(INDEX:'<»,GENREC1]:2,GENRE[:2],N0MFILE{ 16,N0MDISKJ8,NUMB0ITEM) ; 

decodate(datefile,s) ;write(s;9) 
end; 

numligne:=numligne+i 
end; 

procedure imprime< index {integer; var elm j element ) ; 
VAR s ; string; 

BEGIN 

WITH ELM DO 
BEGIN 

WRITE (PAPIER, INDEX : -1 tGENRECn :2, GENRE 1:2: , NOMFILE : 16 » NOMDISK ja^NUMBOITEt-^) ; 
DECODATE( DATEFILE, S) JWRITELN ( PAPIER , S : 9 ) 
END 

end; 

PROCEDURE RAPPEL; 
BEGIN 

GOTOXY (0,3); WRITE ( EFB ) ; 

MESSAGE ( 1 0, 'LE CATALOGUE A ETE PLACE DANS LE *5;'); 
WRITE(INV,SON) ; 

MESSAGE( 12, 'REMETTRE LE DISQUE SYSTEME DANS *-^:'); 
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write(norm) ; 

message ( 1-^, 'faites <return> ' ) j prenreturn 
end; 

PROCEDURE TITRE; 
VAR S J string; 
BEGIN 

sj=' enr gt nom disque bt date' j 

if imp then writeln(papier,s) else message(^,s) 
end; 

(* ! *) 

(« PROCEDURES PROPRES AU PROGRAMME CATALOGUE x ) 
()k4^}K ) 

(xOUVERTURE *) 
(5tc OUVRE LE CATALOGUE OU LE CREE /INON 

PROCEDURE OUVERTURE; 

VAR BON : boolean; 

BEGIN 
REPEAT 

bon:==false; 

(>K$I -)K ) 

reset (GARDE, ' GARNET ; DONNEES ' ) ; 
IF IORESULT==0 THEN 
BEGIN 

numcat:=gardE'^,numboite; 
bon;:=true 

END ELSE 
BEGIN 

REWRITE ( GARDE , ' GARNET ; DONNEES ' ) ; 
ZEROELEMCGARDE'^) ; 
GARDE-^.NUMBOITEt^l ;NUMCAT; = 1 ; 

put (garde) ; 
close(garde,lock) ; 
reset(garde» ' garnet ; donnees ' ) ; 
bon:=(Ioresult=o) 
end; 

if not(bon) then alarme (' placer "garnet" dans le *5j') 
until bon 

()IC*I + )I!) 

end; 

(« R E M P L I R «) 
(* TRANSFERS LE REPERTOIRE DANS LE CATALOGUE x) 

PROCEDURE REMPLIR; 

PROCEDURE ENTETE; 
BEGIN 

L;:=LENGTH (REPERTOIRE* VOL .NOMDISQUE) ; 

IF L>0 THEN 

BEGIN 

lm » nomdisk ; ==repertoire » vol » nomdisque ; 

message (7, 'nom du disque ; ') ;write(lm« nomdisk ) ; 

l;:=o; 
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MESSAGE ( 8, 'NUMERO DE LA BOITE ? ' ) } ENTIER < » LM » NUMBOITE ) ; 
END 

end; 

PROCEDURE files; 
VAR TEMP JELEMENT; 

PROCEDURE ENREGISTRE ( L X ELEMENT ) I 
BEGIN 

()tt*I-«) 

SEEK ( GARDE, NUMCAT ) ; 

GARDEN ::=l; 

PUT < GARDE) ; 
NUMCATt~NUMCAT+i; 
IF lORESULTOO THEN 
BEGIN 

ALARME( 'ERREUR A LA COPIE,,,')? 
EXIT(FILES) 
END 

()tt*I + 5K) 

end; 

BEGIN 

IF REPERTOIRE«VOL«NBRFICHE>0 THEN 
BEGIN 

FOR i:=l TO REPERTOIRE, VOL /NBRFICHE DO 
BEGIN 

temp:=lm; 

with repertoire, catalogci] do 

BEGIN 

GOTOXY(0,9) ; WRITE (EFB) ; 

MESSAGE( 12, 'INCLURE LE FICHIER ' ) J WRITE ( NOMFICHIER, ' (0/N) ? 

IF OUI THEN 

BEGIN 

TEMP.NOMFILE t =NOMFICHIER J 
TEMP , DATEFILE : :=DATEFICHIER J 

MESSAGEdS, 'TYPE (A,,Y) ? ' ) J TEMP , GENREC 1 D :=PRENCAR ( C ' A ' , , ' Y ' 3 ) J 
MESSAGE( 16, 'GENRE (A,,Y) ? ' ) J TEMP , GENREC2] : =PRENCAR ( C ' A ' ♦ ♦ ' Y ' 3 ) J 
ENREGISTRE(TEMP) 
END 

end; 

END 

end else alarmecpas de fichier !') 
end; 

3EGIN(5K REMPLIR x) 
IF LIREREP(4) THEN 
BEGIN 

zeroelem(lm) j 

entete; 

files; 

close(garde,lock) ;reset(garde, 'carnet:donnees' > 
end else alarme( 'erreur lecteur 1,') 

end; 

='rocedure enregistre; 

3EGIN 

quit;:=false; 
while not quit do 
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BEGIN 

GOTOXY( 0,2) ; WRITE(EFE!) J 

MESSAGE (3, 'PLACER LA DISQUETTE A INCLURE DANS')} 

MESSAGE ( 4, 'LE CATALOGUE DANS LE LECTEUR 1 (t^t)')} 

MESSAGE (6, 'QUAND TOUT EST PRET, FAITES <RETURN> ' ) } PRENRETURN } 

GOTOXY (0,5)} WRITE ( EFB ) } 

REMPLIR} 

message(22, 'continuer ? (0/n) ')} 
quit:=not qui 

END 

end; 

(xlirestri *) 
(« procedures a ameliorer *) 

PROCEDURE TRi; 

VAR I t integer; 

BEGIN 

GOTOXY (0,3); WRITE (EFB ) ; 

MESSAGEO,' EDITION DU CATALOGUE GENERAL'); 

IF IMP THEN 
BEGIN 

MESSAGEdO,' XJKXXX SUR L' 'IMPRIMANTE )K)icx** ' ) } 

writeln(papier, 'edition du catalocue general' j5s) ;wrrteln( papier) 
end; 
titre; 

FOR i:=i TO numcat-1 do 
begin 

get(garde) ; 

if imp then imprime( i, garden) else affichecitgarde'^) 
end; 

message(22, 'c'est termine, tapez <return> ' ) ; prenreturn 
end; 

PROCEDURE lire; 

VAR CHOix :char; 

BEGIN 

quit:==false; 

gotoxy (0,2); write ( efb ) ; 

message ( 3, 'le catalogue doit etre dans le drive 2'); 
while not quit do 

BEGIN 

GOTOXY ( ,-1) ; WRITE (EFB) ; NUMLIGNE : =6 ; 
MESSAGE (-1, 'EDITION COMPLETE'); 

MESSAGE(6, 'VOULEZ-VOUS IMPRIMER ? ');IMP:=0UI; 
IF IMP THEN trait; 
SEEK<GARDE,1 ) ; 
TRi; 

IF IMP THEN TRAITFIN; 

MESSAGE(22, 'UNE AUTRE RECHERCHE (O/N) ? ' ) ; QUIT : :=NOT OUI 
END 

end; 

( *nf* ) 

(vf ^Jf \ 

^R ^R ^R ^R "* "* "* "* / 

(X M D I F I E *) 
(x MISE A JOUR D'UN NUMERO DU CATALOGUE*) 



30 



Pom ' s No 3 



PROCEDURE MODIFIE; 

VAR N :integer; 

CH J CHAR J 
BEGIN 

GOTOXY(0,'^ WRITE (EFB) }Nt = 0; 
REPEAT 

MESSAGE ( ^, 'NUMERO DU CATALOGUE A MODIFIER?'); 

ENTIER('<t,N) ; 
UNTIL (N<NUMCAT); 
IF N==0 THEN EXIKMODIFIE ) J 
SEEK(GARDE,N) JGEKGARDE) ; LM J ^GARDE-^ ; 
NUMLIGNE : =6 J TITRE J AFFICHE ( N , LM ) J 
MESSAGE ( 8, 'MODIFIEZ OU <RETURN>'); 
MESSAGE<9, 'TYPE J ' ) } CH t =PRENCAR ( C ' A ' ♦ ♦ 'Y' ,CR]) J 
IF(CH<>CR) THEN LM.GENRECID :=CH 

ELSE BEGIN GOTOXY ( 7 , 9 ) J WRITE ( LM . GENREC 1 ] ) END? 
MESSAGEC 10 , 'GENRE: ' ) J CH : ==PRENCAR ( C ' A ' . . ' Y' ,CR] ) J 
IF (CHOCR) THEN LM » GENRE C 2 D t ==CH 

ELSE BEGIN GOTOXY ( 7 , 1 ) J WRITE ( LM ♦ GENREC2] ) END? 
MESSAGECll » 'NOM DU FICHIER J')? 

(JIC*V"->K) 

PRENCHAINE( 15, (C'A'«.'Z','0'. .'?','♦']) ,LM.NOMFILE) I 
MESSAGE( 12, 'NOM DU DISQUE 

PRENCHAINE (7,(C'A'»»'Z','0'»»'9','.'3),LM* NOMDISK ) J 
(>tc$V+>ic) 

MESSAGE(13, 'NUMERO DE LA BOITE:')} 
ENTIERC-ltLM.NUMBOITE) J 

garde'^ : =lm j seek ( garde , n ) j put < garde ) } 
close ( garde , lock ) j reset ( garde , ' carnet t donnees ' ) i 
end; 

( }K)K}K}K}K}K}K}K}K}K}K}K}K}K)k:k)k:k>k}k PROGRAMME PRINCIPAL )k;kx}K}K}K}K}K}K>kx()kx;k:«(}K}K}K}K}K}k ) 
BEGIN 

PRINFO; 

OUVERTUREJ 

REPEAT 

PAGE ( OUTPUT ) } WRITE ( IW ) t 

MESSAGE (0,' SUPER CATALOGUE jKJKX')} 

WRITE (NORM) J 

MESSAGE (5,' ');WRITE('IL Y A < ' , NUMCAT- 1 , ' > TITRES DISPONIBLES . ' ) J 
MESSAGE(22, 'E(NREGISTRER, L(IRE, «(ODIFIER, F(IN ')} 
COM : =PRENCAR (C'E','L','M','F'3); 
CASE COM OF 

'E' :enregistre; 
'L' jlire; 
'M' :modifie 
end; 
until com='F'; 

seek ( garde , ) } garde^ . numboite t =numcat i put ( garde ) } 
close(garde,lock) j 

RAPPEL 
END. 



Pom's No 3 



31 



Notions de base 



Gerard Michel 



Depuis la parutlon du premier numero de POM'S, de nombreux lecteurs ont pris 
contact avec la redaction pour exprimer leur embarras face au decalage (provisoire 
...) existant parfois entre le niveau de leurs connaissances et celui de certains 
articles publies dans la revue. Fort log iquement, ils ont aussi formule un souhait 
: trouver dans POM'S quelques Informations de base susceptibles de les guider dans 
1 ' exploration de leur APPLE et de f aciliter 1 ' exploitation des articles 
"techniques" . 

Cette revendication est legitime 1 S'etant donne pour objectif d 'informer, si 
possible, TOUS les utilisateurs d' APPLE, votre revue ne pouvait y rester 
insensible. Aussi tenterons nous desormais d' assurer une rubrique destinee a 
repondre aux questions f ondamentales posees par les lecteurs dans cette optique. 
Nous prions simplement les "experts" de bien vouloir sauter allegrement ces 
quelques lignes, teraoignages d'une epoque pour eux revolue ... 

Pour ce coup d'essai, nous traiterons des problemes touchant a la saisie des 
programmes en lang age-machine et a la manipulation des fichiers correspondants . 
Vous avez ete nombreux, en ef f et, a regretter de ne pouvoir utiliser les 
programmes de ce type listes dans la revue, f aute de pouvoir les rentrer en 
machine. Pour clarifier la suite de 1' expose, 11 peut etre utile de rappeler ici 
quelques notions (tres elementaires) concemant le systeme numerique a base 16 (le 
f araeux HEXAdecimal ! ) . 

Eh fait, 11 nous suf f it de savoir que : 

1) II comporte 16 'chiffres' : 0, 1 , . . 9, A( 1 ) , B( 1 1 ) , C( 1 2) , D( 1 3) , E( 1 4) , F( 1 5) . 

2) WXYZ en Hexa est egal a : (W*4096)+(X*256)+( Y* 16)+Z en Decimal (exemple : 
927C en Hexa egale 37500 en Decimal). 

3) A 1' inverse, 37500 en Decimal vaut en Hexa : 

. INK 37500/4096) = 9 
. INT(( 37500 - ( 9*4096) )/256) = 2 
. INT((37500 - (9*4096) - (2*256))/l6) = 7 
. 37500 - (9*4096) - (2*256) - (7*16) = 12, soit C 

4) Par convention, les nombres HEXA sont precedes d'un "$". 

1. Saisie d'un programme en lang age-machine (codes hexadecimaux) . 

Prenons I'exemple du petit programme presente par J.-L. Meillaud . La raarche a 
suivre se decompose ainsi : 

a) Sortir du BASIC pour rentrer dans le moniteur. Pour cela, tapez CALL- 151 
[Return]. IJhe "*" apparait, vous etes en mode moniteur. Attention, cet animal 
etrange ne comprend que 1 ' Hexadecimal ! 

b) Pour saisir les instructions, la sequence est "Adresse (en HEXA, bien sur!)" 
puis ":" puis "codes hexadecimaux des instructions". Vous taperez ainsi ; 

1848: C9 8l FO 01 60 AD 00 CO [Return] 
1850: 10 FB ... 



i860: A9 DF 60 [Return] 
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L'ORDINATEUR PERSONNEL 
DE M" LE DIRECTEUR DES VENTES. 



Apple, c'est d'abord un nouveau concept. Celui 
de la relation individuelle et directe entre I'honnnne et sa 
machine. Un concept qui ouvre une troisieme voie entre 
rien du tout et I'informatique de millionnaire. Apple, 
c'est un outil personnel aussi facile a utiliser qu'une voi- 
ture, aussi leger et peu encombrant qu'une simple 
machine a ecrire et aussi peu couteux qu'une photo- 
copieuse. Un outil qui vous simplifie la vie en diminuant 
la paperosse qui vous encombre, efficace et rapide 
des qu'une decision s'impose. 

Apple vous aide a repondre a des questions de 
type "qu'arriverait-il si?", troite vos problemes de ges- 
tion I planification, previsions, budget let met en forme et 
imprime vos lettres et vos rapports. Apple est un outil 
versatile qui fonctionne sur une vaste gomme de pro- 
grammes que vous soyez avocat ou medecin, respon- 
sable des ventes ou du marketing, comptable ou financier. 




Snppkz 



L'ordinateur personnel 



Interesse, un peu sceptique ou dubitatif... Lorsque 
votre revendeur Apple local aura resolu devant vous 
quelques-uns de vos problemes, ou vous aura fait utiliser 
vous-meme un programme de planification ou une 
analyse sous forme de graphique couleur, vous aurez 
compris I'interet d'avoir a portee de la main la puissance 
de l'ordinateur personnel. 
Etvous commencerez a penser a votre Apple. 



I 



I 



Pour obtenir une information complete sur les systemes 
d'ordinateur Apple II et Apple III, veuillez s'il vous plait 
retourner ce coupon a : SEEDRIN SARL. 
Avenue de I'Oceanie, Z.I. de Courtaboeuf , 91940 Les Ulis 

Nom . - 



I Societe . 
I 
I 
I 

I Telephone 



Fonction 

Adresse __ 



I 



Si vous voulez lister votre programme, tapez : 

1848.1867 [Return] (de fagon generale, adresse debut .adresse fin). 

g) Pour retcurner au BASIC, tapez 3D0G [Return]. Le "prompt" du BASIC reapparait. 

2. Sauyegarde d'un programme s ur disquette apres retour au BASIC. 

La syntaxe est alors la suivante : 

BSAVE NOM, A$X, L$Y ou X designe 1' adresse de depart du programme en HEXA, Y la 
longueur du programme (nombre d 'octets) exprimee en HEXA, et NOM tout simplement 
le nom que vous desirez donner au programme. 

. ou encore BSAVE NOM, AX, LY ou X et Y sont exprimes en decimal. 

L' adresse de depart ne pose pas de problerae; seule la longueur reclame quelque 
attention. Si vous ne voulez pas vous livrer aux Joies de 1 ' arithmetique 
hexadecimale, le plus simple est encore de raisonner en decimal. Ainsi, dans notre 
exemple (trivial) : 

. Adresse de depart : 1848 HEXA = 5216 en decimal 

. Adresse de fin : 186? HEXA = 624? en decimal 

Longueur : 6247-6216+1=32 (vous pouvez aussi compter les octets ligne a ligne 
...). N'oubliez pas de rajouter un a la difference : c'est le fameux probleme des 
intervalles entre les arbres 

. Sauvegarde : BSAVE NOM, A621 6, L32 

3. Chargement d'un prcgramme a partir de la disquette. 

II vous suffit de taper BLOAD NOM. L' adresse de depart et la longueur ont ete 
memorisees au moment de la sauvegarde. Si vous desirez les retrouver, tapez, apres 
le BLOAD : 

. Pour 1 'adresse : PRINT PEEKC 43634) + 256 * PEEK( 43635) 
. Pour la longueur : PRINT PEEK(436l6) + 256 * PEEK(436l7) 
Les deux valeurs vous seront donnees en decimal. 

De meme, BRUN NOM permet de charger le pregramme NOM en memoire et de lancer son 
execution (comme le RUN dia BASIC). 

Une fois le programme charge, si vous voulez verifiez les codes hexadecimaux, 
entrez dans le moniteur et tapez, comme ci-dessus, "adresse debut .adresse fin" 
(adresses hexadecimales toujours). 

Ehfin, supposons que vous ayez sur disquette un programme NOM en lang age-machine 

(routine de nettoyage memoire, routine de tri ), commengant a I'adresse 37000 

(en decimal), et que vous souhaitiez I'utiliser dans le cours d'un programme 
BASIC. Les choses pourraient se presenter ainsi : 

10 D$=CHR$(4) 

20 HIMEM: 36500 (pour proteger la routine en langage-machine ) 
30 PRINT D$"BLOAD NOM, S6,D1" 

1000 CALL 37000 (execution de la routine en langage-machine) 



Suite du programme BASIC 
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Conversion Pascal/B ASIC/Pascal 



Gilles Mauffrey 



1. Prlnclpes generaux. 



II etalt utile de pouvoir regrouper sur une meme dlsquette pour les lecteurs de 
Pom's des prcgrammes d'origines diverses : Pascal ou BASIC. Le programme presente 
ici repond a cet objectif . Avant de decrire brievement le programme, nous aliens 
mettre en evidence les principales differences entre le DOS 3.3 et le Pascal 
Operating System (P.D.S.). 

Tout d'abord le DOS raisonne en piste et secteur, tandis que le POS ne connait 
theoriquement que les blocs de 512 octets. Lh bloc correspond en fait a deux 
secteurs consecutifs. De plus la sectorisation soft des pistes est differente 
(voir "Beneath Apple DOS"): 

- pour le DOS 3.3, les secteurs sont numerotes 0, 13, 11, 9, 7, 5, 3, 1, 1^, 12, 
10, 8, 6, h, 2, 15. 

- pour le POS, la numerotation est 0, 2, 4, 6, 8, 10, 12, 14, 1, 3, 5, 7, 9, 11, 
13, 15. 

Toutefois, le DOS 3.3 permet de lire une disquette Pascal, puisque la table de 
sectorisation se trouve aux adresses $BFB8 et suivantes. 

L' implantation des "directorys" est egalement differente. Sur une disquette 
Pascal, le directory commence au bloc 2 et se termine au bloc 6; chaque 
enregistrement (fichier ou en-tete) occupant 26 octets. Pour le DOS 3.3 le 
directory debute en piste 17 secteur 0, chaque fichier occupant 35 octets. 

Ihe autre difference fondamentale concerne 1 'implementation des fichlers eux- 
memes. Eh DOS 3-3, les f ichiers ne sont pas necessairement sur des secteurs 
consecutifs, tandis que le POS ecrit les f ichiers sur des blocs consecutifs, ce 
qui simplif ie beaucoup la lecture de ces f ichiers en assembleur . 

2. Description des enregistrements "fichier" du directory Pascal. 



Comme il a ete dit plus haut, chaque enregistrement du directory comprend 25 
octets; nous ne decrirons ici que les enregistrements concernant les fichlers. 
Traduisant la description de M. Crimont (Pom's 2), nous obtenons: 

- Bloc de debut de fichier : 2 octets (exemple bloc 6 : 05 00) 

Bloc de "fin" de fichier : 2 octets (en fait c'est le bloc de debut du fichier 
suivant ) 

- Type du fichier : 2 octets 

Norn du fichier : 15 octets (1 octet pour la longueur du nom et 15 octets pour le 
nom) 

Nombre d' octets inutilises dans le dernier bloc: 2 octets (toujours 00 02 car ce 
bloc est le debut du fichier suivant) 

Date de creation du fichier : 3 octets ( 1 octet pour la longueur 02 et 2 octets 
pour la date elle-meme 01 02) 



annee 
I.U.1-LU . 



jour I mo IS 



1^^^^ j , , I 1 7 bits^ pour 1' annee, 5 pour le Jour et 4 pour le mois 



02 01 
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3. Deroulement du programme. 



Pour simpllfler I'ecriture du fichler sur la dlsquette BASIC, nous avons utilise 
la command e BSAVE du DOS. Ceci a pour inconvenient de limiter la longueur des 
fichiers transportables par ce programme; cependant ceci ne s'est pas avere genant 
pour I'utilisation que nous en avons f aite . 

Apres avoir demande le nom du fichier Pascal a transferer et le nom du f ichier 
"BASIC" transfere, le programme verifie 1' existence du fichier sur la disquette 
Pascal; en cas de fichier inexistant, le programme s'arrete. One f ois trouve, le 
fichier est charge en memoire a partir de I'adresse $2000, puis charge sur la 
disquette "BASIC". 

Quatre sous-programmes sont utilises : 

Le sous-programme PRERWT est appele avant chaque appel a RWTS, pour initialiser 
la table . 

- Le sous-programme TABPS charge la sectorisation Pascal . 

- Le sous-programme TABDO charge la sectorisation DOS. 

Le sous- programme CALPSE transforme le numero de bloc en numeros de piste et de 
secteur . 

Nous n 'analyserons pas ici le programme permettant de transferer le fichier 
"BASIC" sur une disquette Pascal dans la mesure ou la demarche suivie est 
pratiquement la meme . Les lecteurs courageux pourront cependant I'amelorier en 
permettant d'introduire la date, puisque ce programme prend la date du dernier 
fichier existant sur la disquette Pascal, ce qui peut poser des problemes en cas 
de diquette vierge. 



SOURCE file: pascbas 

NEXT OBJECT FILE NAME IS PASCBAS .OB JO 



090 0: 


1 




ORG 


$900 




fd{3e: 


2 


CROUT 


EQU 


$FD8E X 


< RETURN > 


fded: 


3 


COUT 


EQU 


*FDED * 


ECRITURE ECRAN 


FD35: 




RDCHAR 


EQU 


$FD35 X 


LECTURE CLAVIER 


FC9C: 


5 


CLREOL 


EQU 


*FC9C 




FC58: 


6 


HOME 


EQU 


$FC58 




03F2: 


7 


RESET 


EQU 


*3F2 




090 0: 


8 










090 : 


9 


« PARAMETRES 


POUR RWTS 




0900: 


10 










oooo: 


11 




DSECT 




00 : 


12 


RPLIOB 


DS 


1 




00 oi: 


13 


RPLSLT 


DS 


1 




00 02: 


1-1 


RPLDRV 


DS 


1 




00 03: 


15 


RPLVOL 


DS 


1 




000^: 


16 


RPLTRK 


DS 


1 




00 05: 


17 


RPLSEC 


DS 


1 




00 06: 


18 


RPLDCT 


DS 


2 




00 08: 


19 


RPLBUF 


DS 


2 




00 oa: 


20 


RPLSIZ 


DS 


2 




000c: 


21 


RPLCMD 


DS 


1 




0001: 


22 


READ 


EQU 


*01 




0002: 


23 


WRIT 


EQU 


$02 




oood: 


2-^ 


RPLCRD 


DS 


1 




00 oe: 


25 


RPLTVL 


DS 


1 




ooof: 


26 


RPLPSL 


DS 


1 




0010: 


27 


RPLPDR 


DS 


1 




09 00 : 


28 




DEND 






0900 : 


29 


)K 








0900: 


30 


>K UTILISATION DE LA PAGE 


ZERO 



36 
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A A n n 4 

00 « 








r 1 K 




* u 


00 oz « 






Jo 


Ci T O T C 

r J.b 1 b 


cm 1 




00 03« 






O /I 


SECTEUR 


EQU 


*3 


00 0^4 








CMD 


EQU 


$/j 


00 05t 






36 


DRIVE 


EQU 


*5 


00 07* 






3/ 


HBUF 


EQU 


$7 


00 08« 






38 


TEMP 


EQU 


*8 


OO-'ISJ 






39 


PREG 


EQU 




090 : 






■10 








0900 : 








* AUTRES ADRESSES 


090 J 






tZ 








20 : 






/I o 


Ct 1 1 C* C* C* Ct 


EQU 


$2000 


ISE3: 








1 n c« c'» 1 
L U L r K L 


EQU 


*3E3 


33D9 : 






''}5 


KW 1 b 


EQU 


*3D9 


3r B8: 






/I /, 
TO 


al::.LUt:.D 


EQU 


*BFB8 


D90 : 






■48 








090 : 






/I o 

t9 




PROGRAMME 


J9 : 






C A 

50 








090 : 20 


58 


FC 


Ol 




1 C D 
J5dK 


Lin MET 
nun t 


J9 3 : A9 


20 








L.UH 


ii*vc»ur r c.T\ 


j9 05 : 85 


0/ 




Do 




CT A 


ri C' u r 


)9 07 : A2 











1 rv V 
L.U A 


♦ U U 


n o ♦ r*ir\ 

J9 U V : BD 


16 


oc 


ir nr 


c* C' T 


L.UH 


nc. SO t A 


J9UC:C9 






Do 




Lnr 


A / « 

♦ f 


)9oe:i- 


6 




IS* "7 






P M T P P P 

e:.iN I l\i::.c:. 


J91 : 20 


hD 


r D 


uo 




ICC* 


rni IT 


)913:E8 






59 




TKI V 

XN A 




191^: DO 


F 3 




/ A 

60 










U 




L i 

6.1 


t.N 1 Kilt. 


1 Pi V 
l_U A 


♦ U 


1918: 20 


3 b 


FD 


62 


MA JF 


ICCi 

«JbK 


CirsPI-IAD 
lM/U>rlHI\ 


I91B : C9 


88 




63 




CMP 


i=*88 


I91D: DO 


n r*» 

OB 




6*t 




BNE 


INBUF 


)91F: EO 







65 




CPX 


»00 


1921 : 1- 


F5 




66 




BEQ 


MAJF 


1923: 20 


ED 


FD 


67 




JSR 


COUT 


1926: CA 






68 




DEX 




\927 : -^L 


18 


09 


69 




JMP 


MAJF 


i9xiA:C9 


8D 




"T A 

7 


INBUr 


CMP 


**8D 


i92C: FO 


18 




71 




BEQ 


FINE 


i92E: C9 


EO 




72 




CMP 


#$E0 


1930 : 90 


02 




73 




BCC 


ADDBUF 


932: 29 


DF 








AND 


*$DF 


934: ^^9 


80 




75 


ADDBUF 


EOR 


**80 


936 : 9D 
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450 MESS ASC 'NOM DU FICHIER PASCAL : ; 

451 MEDO ASC 'NOM DU FICHIER "NORMAL" : ; 

452 ERMES ASC 'NOM TROP LONG; 

453 MODEMP ASC ' INSERER LA DISQUETTE PASCAL DANS LE DRIVE 1, LA 
DISQUETTE BASIC DANS LE DRIVE 2, PUIS APPUYER SUR "RETURN" ; 

454 PASFI ASC ' CE FICHIER N EST PAS SUR CETTE DISQUETTE ; 

455 FICH ASC ' 

456 LFIC DFB 

457 FIDO ASC ' 

458 LFID DFB 

459 NFPAS DFB 

460 DEFPA DFB 0, 

461 FIFPA DFB 0, 

462 PASTAB DFB 0,2,4,6,8, 10, 12, 14, 1,3,5,7,9,11, 13, 15 

463 DOSTAB DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

464 RESPA DFB 0, 

465 BLO ASC 'BSAVE; 
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Unt> inform^iticiuti dy yt'sliori adtipt^t* imx btisoiris des gastionnnires et realise par des gestionnaires. 



ETUDIE • opportunite d'utilisation de I'outil micro-informatique 

• integration entre informatique traditionnelle et personnelle 

• politique de la communication dans I'entreprise 



FORME • formation a I'utilisation de la micro-informatique 

REALISE • realisation de programmes a la demande 

LIVRE • livraison de systemes cles en main, avec des progiciels de 

GESTION DE STOCK, PAYE, COMPTABILITE. 



Nous sommes gestionnaires avant d'etre informaticiens. L'informatique doit s'adapter a rhomme, et non I'inverse. 
L'outil micro-informatique repond particulierement bien a ce souci de qualite et d'efficacite du travail, 

dans des conditions conviviales. 
Nombreuses references cn informatique traditionnelle - divers materiels - et en informatique individuelle - principalement 

Apple - aupres des PME et des groupes industriels. 



logmo 



s.a. Centre La Chataigncraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tel. : (3) 918.13.07 
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Communication grace a i'Appie 



Bruno Estrangin 



1- Introductlon 

Nouveau venu a 1' inf ormatique, mals ancien radio-amateur, j'al ete tres vite tente 
par les posslbllites de communication de 1' APPLE. Parmi des objectifs varies : 
acceder a des moyens inf ormatiques supplementaires, echanger des textes ou des 
programmes, Interroger des banques de donnees..,, ce qui m'interesse le plus 
vivement est la perspective d'eviter toute reprise manuelle afin de prof iter de 
toute la souplesse de 1 ' inf ormatique . 

D'un point de vue non technique, communiquer avec un micro-ordinateur, c'est aussi 
experimenter de nouvelles relations sociales. Ainsi, avec une certane naivete de 
neophyte, J'al entrepris de communiquer. C'est passionnant et ga marche ! J'espere 
que les inf ormaticiens specialistes f eront connaitre ce domaine avec autant de 
moyens que pour le BASIC, le Pascal . . . 

Je presente ci-dessous les realisations suivantes : 

echange de textes en environnement Pascal entre un APPLE et une machine 
bureautique RANK XEROX 850 pleine page, 

utilisation de la meme machine bureautique en tant que terminal, 1' APPLE servant 
d ' ordinateur, 

acces a un reseau de temps partage et au reseau MICROBIAL. 

Je n'ai pas eu 1' occasion de communiquer directement avec un autre APPLE, mais 
cela ne presente a priori aucune difficulte (entre APPLE, 11 est plus facile de se 
comprendre ! ) . 

g-Matiirlel utilise 

2- 1 Cote APPLE 

- Apple II, 48k avec carte langage, 

- deux drives (11 est possible de n'en utiliser qu'un), 

- carte de communication : APPLE II COMMUNICATIONS INTERFACE CARD [A2B0003X], 

- modem Anderson Jackobson AJ 311. 

2-2 Cote bureautique 

- Rank Xerox 850 pleine page, 

- modem Anderson Jackobson AJ 211. 

Une explication sur les MODEMS : 

La transmission s'effectue par modulation de part et d 'autre d'un canal (+/- 
lOOhz). Par convention, le modem appelant emet dans le canal inferieur ( 1080 hz) 
et le modem appele emet dans le canal superieur ( 1750 hz ) . 
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Le modem AJ 211 ne fonctionne qu'en mode "APPEL" (ORIGINATE) : 11 "ecoute" sur le 
canal superieur et "emet" dans le canal inferleur. Le seccnd modem utilise devra 
done "ecouter" sur le canal inferieur et emettre dans le canal superieur : on dlt 
qu'il doit etre en mode "REPONSE" (ANSWER). 

Pour communiquer avec une machine munie d'un modem ne disposant que du mode 
"APPEL" (ORIGINATE), il faudra mettre le modem AJ 311 en mode "REPONSE" (ANSWER), 
soit : 

- MODEM AJ 211 : mode "APPEL" 

- MODEM AJ 311 : mode "REPONSE" 

3-Echange de texte avec une machine bureautique 

Plusieurs procedures sont disponibles. J 'utilise une procedure dissymetrlque du 
cote de 1' APPLE : 

emission sans logiciel particulier, en utilisant la fonction TRANSFER du FILER 
du POS de 1' APPLE Pascal, 

reception au moyen d'un logiciel de communication ecrit en Pascal : le programme 
LIAISON dont on trouve le listing dans "LE PASCAL PAR LA PRATIQUE", pages 516 a 
518, Pierre LEBEUX et Henri TAVERNIER, SYBEX. 

Voici la procedure utilisee : 

preparation du texte a I'alde de I'EDITORde I'APPLE Pascal, et stockage sur 
disquette en notant son titre (facile a retrouver avec le FILER) 
preparation de I'APPLE pour la communication : 

— carte de communication dans le slot 2, 

— liaison selon la norme RS 232 avec le modem accoustique, 

— mise en service du modem, mode ORIGINATE, FULL DUPLEX. 

appel du poste telephonique de la machine bureautique pour verifier que tout est 

egalement pret du cote bureautique. 

- II suffit ensuite de passer au niveau du FILER les commandes : 
— TRANSFER (nom du fichier) 

— a la question TO WHERE, repondre "REMOUT:"; ceci envoie le fichier par la 
carte de communication au modem. 

Durant la transmission, rien n'apparait sur I'ecran; les commandes au clavier 
sont sans effet. A la fin de la transmission du fichier, on voit sur I'ecran la 
fleche habituelle a 1' issue d'un transfert. 

Avec I'APPLE Pascal, la transmission d'un fichier n'est done pas plus difficile 
que sa copie entre deux disquettes. 

La preparation de la machine bureautique a la reception est specifique de cette 
machine. J'indique ci-dessous la gamme operatoire propre a la machine RANK XEROX 
850 pleine page. 
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*OUTIQUE nuMero:0 03 REVISION nuMeroIOl du 21/10/81 x 

:k % 

* 5K OBJECTIFJ RECEVOIR SUR LA RANK 85 P ** 
X X POUR IMPRESSION DE QUALITE xx 
X X LE CONTENU D'UN FICHIER EMIS xx 
X X DEPUIS UN APPLE SOUS OS PASCAL xx 

XX XX 

XX xx 

XX 

u> 1^ 1^ ^* «y «y «u %u 

/i\ ^1 Jn ^1 ^1 

X X 

X configuration: APPLE II, PASCAL, COM x 

X RANK 850 PAGE + COM 5-1 X 

X X 

XCREE LEtl-l/lO/Sl DIFFICULTE : FACILE x 

X X 

xAPPLICATION J transfer t de tableaux coMMe celui-ci, conposes sur 1 ' APPLE x 

Xavec inpression respectant la wise en page x 

X- X 

X X 

XVCTRJESTRANGIN x 

X X 

X X 

XGAMME ♦ 1-Mettre le disque COM de la RANK dans le lecteur de droite x 

X X 

X 2-Mettre le disque de saisie dans le lecteur de gauche x 

X X 

X 3-Mettre en route la RANK x 

X X 

* ''f-Chancjer la station de travail avec <PARA>{ lecture du disque , x 

* COM X 

X X 

X 5-A <MODE COM 1>, repondrel , <ACCEPT> ' x 

X X 

X 6-A <RETIRER DISQUE COM>, executer x 

X X 

X 7-Faire <CODE PROGR> et choisir les options suivantesJ x 

X -3 (bit/s) X 

X -QUI (node duplex) x 

X -0 (parite) x 

X -X (ligne feed local) x 

X -X (inhiber) x 

X -''Ix (Mode COM) x 

X X 

X 8~Faire <ACCEPT>: I'ecran indique <COM PRET> x 

X X 

X 9-AlluMer le woden de la RANK x 

X X 

X 10~Si I'ecran indique <PROE!LEME LIAISON TRANSMISSIOM> J appuyer x 

X sur <STOP>; I'ecran doit alors indiquer <COM PRET> x 

X X 

X ll-Changer de station pour acceder au disque de saisie* x 

« touche <PARA> x 

X X 

X 12-Faire apparaitre le fornat qui sera celui du docunent recu* x 

X -Marge: 7-79 (correspond a RIGHT MARGIN 6, LEFT MARGIN 79) x 

X -echappeMent : 10 x 

X X 

* Pour faire apparaitre ce forMat qui sera autoMatiquewent x 

* celui du docuMent recu, on peut creer un nouveau docuMent: x 
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XOUTIQUE riUMero:003 REVISION nuMerolOl du 21/10/81 FOLIO: 2/2 x 



)K X 

x -faire <CODE PRGR> x 

X -en lever ^-l MODE COM> x 

* -Mettre <LOCAL> x 
5K -fa ire <ACCEPT> x 

* -creer un docuMent (titre propose* FORMATCOM) x 
JK ~re«pl3cer le forMst standard par le fornat ci-dessus x 

* -stocker le docu«erit x 
x -revenir en MODE COM! x 
x -<CODE PRGR> !K 
x -ef facer <LOCAL>; Mettret <^ MODE COM> x 
X -louche <ACCEPT> x 

9K X 

JK On peut aussi appeler un docuMent conportant ce forM3t> fairex 

X apparaitre ce for«at sur l'ecran» puis re-stocker le docuwentx 

* Ce forrtat sera ensuite Mis sur tout nouveau docuMent x 

X X 

JK 13-Creer un nouveau docuwent qui recevra la coMMunication x 

X -donner un titre : <TITRE> x 

X -faire 2 fois <ACCEPT>J le curseur se Met apres le forMatJ x 

* I'ecran indique <COM PRET> x 

X X 

)K I'^-Appeler le poste distant x 

X X 

* 15-Disposer le coMbine sur le ModeM* cordon du cote de CORD x 

X X 

* 16-Verifier la reception de la porteuseJ laMpe verte allunee x 

X X 

X 17-En cas de <PROBLEME TRANSMISSION:::- » appuyer sur la touche STOP x 

X X 

X 18-A la fin de la transMission ♦ stocker le docuMentJ touche STOCK* 

X X 

X 19-Pour iMpriMer le docuMent* * 

X -depuis le soMMaire disque» Mettre le curseur sur le docuMentx 

X -Mettre le curseur qui est sur <TITRE>, sur <IMPRIMER> x 

X (par la touche MOT> x 

X -touche <ACGEPT>» une nouvelle ligne apparait x 

X -avec la touche <MOT>, venir sur <ECHAPPEMENT> x 

X -touche <ACCEPT>, faire apparaitre <10> x 

X X 

X 20-Touche <CARAC>» acceder au soMMaire de travail J le docuMent x 

X est indique sous <IMPRIMANTE> x 

X X 

X 21-Lancer I'iMpression par les touches <CODE PARA>» x 

X X 
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Cette procedure me permet d'imprimer les majuscules et minuscules et de garder la 
presentation du texte tel que je I'ai ecrit sous 1' EDITOR. Pour cela, il f aut que 
la 850 P mette un code "LINE FEED" apres chaque retour marge. Eh effet, la carte 
COMMUNICATION ne transmet pas les codes LINE FEED. 

Si I'on transmet ce code (ASCII 10) au moyen d'un programme de communication comme 
le programme LIAISON, on observe sur la 850 P des ef f ets inattendus : par exemple 
le code ASCII 10 (ou code J) est utilise par la 850 P comme prefixe aux 
instructions de mise en page. Ainsi, la 850 P comprend (ASCII 10, E) comme 
signifiant un "retour marge code" et non comme un LINE FEED suivi de la lettre E. 

La communication avec une machine bureautique, necessite par consequent que I'on 
s'informe sur les conventions utilisees. 

Je prends une autre precaution en disposant les marges sur la 850 P : le chiffre 
indiquant la marge de gauche pour la 850 P est augmente d'une unite par rapport a 
celui donne par SET ENVIRONNEMENT a RIGHT MARGIN. 

Ehfin, pour garder sur la 85O P son aspect au texte ecrit sur 1' APPLE, je dois 
supprimer 1 ' "espacement proportionnel" de la 850 P en cholsissant comme 
"echappement" sur la 850 P : 10 (pour memoire, ceci signifie que les caracteres 
seront separes par 1/10 de pouce). 

Toutes les surprises sont-elles evitees ? Oui, tant que I'on ne transmet que des 
lettres, des chiffres et des signes de ponctuation . J'indique ci-dessous les 
signes de 1' APPLE qui sont interpretes differemment par la 85O P : 



APPLE (Pascal) 




850 p 


(FRANCAIS) 


M = Majuscule 


m = 


minuscule 


S = Schift + 


C = 


Ctrl + 


E = Esc + 


R = Rept 


CR = 


retl 












M+S+3 


* . 




£ . 








£ . 




* 








* 






M+S+p 


... e . 






M+S+p 


... e . 






M+R 






P . 


M+S+R 








m+R 






P . 


m+S+R 








M+S+M 


... ] . 




§ . 


m+S+M 


... ] .. 




CR . 


M4-S+ 


, . . < . . 














M+S+ 


. . > . . 












A 



Recuperation du texte sur 1' APPLE 
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1- Du cote de la machine bureautique, il faut la preparer a 1 'emission en suivant 
les etapes 1 a 11 ci-dessus. Ehsuite, on deplace le curseur a I'aide de la touche 
PARA pour surligner TRANSMISSION. Avec la touche LIGNE, on surligne le titre du 
document a transmettre, puis touche ACCEPT. Le titre du texte apparait avec la 
mention EMISSION. 

II faut creer un fichier provisoire qui contiendra toute la communication : 
donner un titre 
ACCEPT, ACCEPT 

On est devant une page blanche et il est possible de transmettre des caracteres 
directement du clavier (I'ecran indique "emission"). On lance I'emission du texte 
par la touche PAGE. 

II est indispensable d'emettre depuis la machine bureautique le code qui Indiquera 
la fin de I'emission : code D pour le programme LIAISON, code C pour une reception 
sous la fonction TRANSFER du FILER. 

2- Du cote de 1' APPLE, il suffit de faire executer le programme LIAISON et de 
suivre les explications qu'il donne. 

3- Ijhe autre methode de reception peut etre utilisee en 1' absence du programme 
LIAISON : 

proceder comme ci-dessus pour la machine bureautique 

sur 1' APPLE, utlliser la fonction TRANSFER DU FILER alnsi : 

— TRANSFER 

— FROM REMIN: 

— TO WHERE: nom de fichier 

le transfert est clos a la reception de CTRL-C 
Toutefois, je ne sais pas actuellement saisir ce fichier avec le FILER : les 
informations contenues dans les deux premiers BLOCKS sont absentes. Ce fichier 
peut etre transmis a I'imprimante (TRANSFER TO PRINTER:) et a I'ecran (TRANSFER TO 
CONSOLE: ) . 

4. Utilisation d'une machine bureautique comme t e rminal d'un AppLE 
CONVERSATION TEMPS REEL ENTRE MACHINES 

Du cote de 1' APPLE, on se met en environnement BASIC et on suit les indications du 
manuel de la carte de communication. Plusieurs comblnaisons sont possibles : 

4- 1 Conversation entre machines : 
sur 1' APPLE : 

— IN£2 

~ CTRL A, CTRL F 

sur la 850 P : suivre les etapes la l8 de la procedure en encadre. 
Tout ce qui est frappe sur un clavier apparait sur I'ecran de la machine emettrice 
ainsi que de la machine receptrice; il n'y a aucune manoeuvre a faire pour passer 
du role d'emetteur a celui de recepteur. 

4-2 Commande par la 850 P d'un programme execute par 1' APPLE ; 
sur 1' APPLE 

— PR£0 
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~ IN£2 

~ CTRL A, CTRL F 
sur la 850 P 

— CODE R pour acceder a 1 'unite centrale de 1' APPLE et CODE T pour la liberer 

- L' APPLE reprend la main par CTRL A, CTRL X. 

La 850 P peut ainsi f aire executer tout prcgramme sur 1 ' APPLE (EN BASIC), a 
condition de ne pas utillser de fonction graphique. L'affiehage s'effectue a la 
fois sur les deux ecrans. 

k-3 Montrer sur la 850 P le deroulement d'un prcgramme commande de 1' APPLE : 
sur 1' APPLE : 

— PR£2 

sur la 850 P : rien 
Uh prcgramme execute sur 1 ' APPLE est visualise sur les deux machines. 

5. Acces a un reseau 

5-1 Cas d'un reseau de temps partage : 

On prepare 1' APPLE par : 

- IM£2 

- CTRL A 

- CTRL F 

II n'y a plus qu'a appeler le reseau, et a suivre la procedure de connection 
propre a ce reseau (identification, mot de passe, nom du projet..,). L' APPLE 
fonctiofine comme un terminal. Toutefois, je ne sais pas encore garder una trace 
ecrite des informations apparaissant sur I'ecran. 

5-2 Cas de MICRODIAL : 

MICRODIAL est un ensemble de services pour micro-ordinateurs implante sur le 

reseau EURODIAL de TELESYSTEME. 

On peut se renseigner : 

9 rue Huisman - 75006 - tel : 544 70 23 

MICRODIAL est ouvert aux prof essionnels, mais egalement aux "hobbystes" pour la 
somme de 30F/heure de connexion, tout compris. Les services sont en cours de 
developpement . II est deja possible d'utiliser la MESSAGERIE pour recevoir et 
emettre des messages ^vec un autre membre du reseau. Autres fonctions implantees : 
petites annonces 

fichiers et edition de textes - jeux 

bibliotheque de logiciels - annuaire 
the caracteristique tres interessante est de pouvoir envoyer sur MICRODIAL un 
fichier provenant d'une disquette d'un APPLE et reciproquement de receptionner sur 
1' APPLE un fichier provenant de MICRODIAL. II est ainsi possible de communiquer 
entre des micros differents ( APPLE, TRS, GOUPIL) . 

La connexion se fait par TRANSPAC en utilisant un logiciel de communication fournl 
par MICRODIAL. Les utilisations de ce type de reseau ne sont limitees que par 
1' imagination des utilisateurs . Pour les lecteurs de POM'S actuels ou futurs 
"hobbystes" sur MICRODIAL, mon numero est : ECB 15086. A bientot ! 
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Copie d'ecran-texte 



Christian Guerin 



Le prcgramme en assembleur presente ici vous permettra de faire de la copie 
d'ecran-texte sur imprimante . II transforme egalement les caracteres INVERSE et 
FLASH pour 1 'impression , mais ne peut etre utilise avec une carte-imprimante qui 
affiche en meme temps les donnees a I'ecran. 

Le petit prcgramme BASIC ci- joint donne un exemple d 'utilisation . 



0800 
08 
00 00 
00 
00 
00 
00 
00 
00 
00 00 
0000 
00 00 
00 00 
00 
00 
0000 

oooo 

00 
00 00 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0002 
00 03 
00O3 
00 03 
00 03 
00 03 
00 03 

ooo^ 

00 05 
00 07 
0OO9 
OOOB 

oooc 

OOOE 
0010 
0012 
001-^ 
0015 



A900 
-^8 



-^8 

2903 
Q<?Q^ 
8507 

6Q 

2918 

9002 

697F 

8506 

OA 

OA 



1 
2 
3 
^ 
5 
6 
7 
B 
9 
10 
11 
12 
13 
1^ 
15 
16 
17 
IB 
19 
20 
21 

'7'? 



26 
27 
2B 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
-^0 
''H 
'<J2 
^3 
-^-1 



ORG $0000 
OBJ $0800 



X X 

X PROGRAMME DE HARD COPIE TEXTE x 

X X 

3iC 3iC 3iC 3JC JiC 3IC 3IC 3iC 3iC 3iC 3iC HC IK 3IC 3iC 3iC 3iC 3iC 3iC 3iC HC HC HC HC HC 3K 3iC 3iC 3iC 3iC 3JC HC HC HC HC 3IC 3IC 3K 3IC 3iC 



ADL EPZ *6 
LIGNE EPZ *8 



OUT 



EQU *FDED 



JADRESSE DE DEBUT DE LIGNE 
;NUMER0 DE LIGNE 

JECRITURE D'UN CARACTERE 



DEBUT DU HARD COPIE 



HCT LDA *0 
HCT.l PHA 



J DEBUT HARD COPIE LIGNE 
;SAUVEGARDE NUMERO LIGNE 



CALCUL DE L'ADRESSE DE DEBUT DE LA LIGNE 



HCT, 2 



PHA 
LSR 

AND **3 
ORA **'\ 
STA ADL+1 
PLA 

AND **18 
BCC HCT»2 
ADC *$7F 
STA ADL 
ASL 
ASL 



J ROUTINE VTAB 
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0016 
0018 
OOIA 
001 A 
OOIA 
OOIA 
OOIA 
OOIA 
OOlC 
OOIE 
0020 
0022 
002^ 
0026 
0028 
00 28 
002A 
002D 
002E 
0030 
0032 
00 32 
0032 
0032 
0032 
00 32 
0034 
0037 
00 37 
0038 
0039 
3A 
3E! 
003D 
003F 
00 3F 
OO'^O 
00^0 
00^0 



0506 
8506 



AOOO 
B106 
3008 
293F 
C920 
BO 02 
09-10 

0980 

20EDFD 

C8 

C028 
DOEA 



A98D 
20EDFD 

68 
A8 
C8 
98 

C918 
D0C3 

60 



-15 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 



ORA ADL 
STA ADL 



ECRITURE D'UNE LIGNE 



HCT,3 



HCT,4 



LDY 
LDA 
BMI 
AND 
CMP 
BCS 
ORA 

ORA 
JSR 
INY 
CPY 
BNE 



*0 

(ADL) »Y 

HCT.4 

#*3F 

«$20 

HCT,4 

**40 

t480 
OUT 

*!40 
HOT. 3 



JY POINTE DANS LA LIGNE 



SI LE CARACTERE EST EN 
INVERSE OU EN FLASHANT 
ON LE TRANSFORME 



; ECRITURE SUR L'IMPRIMANTE 

; CARACTERE SUIVANT 

JTEST SI FIN DE LA LIGNE 



FIN D'UNE LIGNE 



LDA *"M""*40 
JSR OUT 

PL A 
TAY 
INY 
TYA 

CMP *!24 
BNE HCT»1 

RTS 



END 



JENVOIE DE 'RETURN' 



{PASSAGE LIGNE SUIVANTE 
?TEST SI FIN DE LA PAGE 



080 0- 


A9 


00 


48 


48 ,4A 


29 


03 


09 


0808- 


04 


85 


07 


68 


29 


18 


90 


02 


0810- 


69 


7F 


85 


06 


OA 


OA 


05 


06 


0818- 


85 


06 


AO 


00 


Bl 


06 


30 


08 


0820- 


29 


3F 


C9 


20 


BO 


02 


09 


40 


0828- 


09 


80 


20 


ED 


FD 


C8 


CO 


28 


0830- 


DO 


EA 


A9 


8D 


20 


ED 


FD 


68 


0838- 


A8 


C8 


98 


C9 


18 


DO 


C3 


60 



20 D* 
30 A$ 

40 
100 
110 
120 

13 

14 
150 
20 
210 

22 

23 

24 
250 



:= CHR* (4) 

M> 1 1 w w >y \y w ^ w 4 ^ W' 'W' V V V V W W V V V W V V W 

•™ ^ A m A m A- m ^ m ^ ^ ^ ^ m- m m- -m m m m -m A 

3IC )K }K )IC )K 3K 3K 3K )K ' ^ 

RINT D*r'BLOAD B:HCT,A*300" 

TEXT : HOME 

PRINT A* J 

FOR I := 1 TO 21 

PRINT ")ic>ic"; J HTAB 40 

NEXT I 

PRINT A* 

VTAB 4: HTAB 7 J INVERSE 
PRINT "POM'S" 
VTAB 11 : HTAB 13: FLASH 
PRINT "HARD COPIE TEXT" 
VTAB 18 J HTAB 4: NORMAL 
PRINT "METTEZ VOIRE IMPRIMAN 
TE EN MARCHE" 



26 VTAB 20 : HTAB 8 

27 PRINT "PUIS TAPEZ SUR UNE TO 

UCHE" 

300 WAIT ~ 16384, 128t POKE - 1 
6368,0 

PRINT D*;"PR#1" 
CALL 768 
PRINT D*;"PR*0" 



310 
32 
330 



34 HOME 
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Routine de presentation graphique 

Jean-Francois Duvivier 



Si vous etes passe sur notre stand au Sicob I'an dernier, ou si vous etes abonne a 
nos disquettes, vous avez certainement remarque la presentation de la disquette 
Pom's N 1 . 

Pour ceux qui ne I'on pas vue, disons qu'il s'agit d'un dedoublement d 'image HGR 
et d'un "scrolling" d'une des deux images dedoublees. Le resultat est 
particulierement esthetique pour des images peu chargees ou des legos, comme dans 
le cas de la disquette Pom's N 1. 

Apres de multiples ameliorations, nous vous proposons ici un programme qui vous 
permettra de definir vous-meme les effets que vous souhaitez . Ecrit en Assembleur, 
pour des raisons evidentes de rapidite, il occupe environ 150 octets. 

Avant d ' executer ce programme, il f aut lui definir la page-ecran sur laquelle il 
va travailler et dans laquelle vous avez charge votre image, cette variable doit 
etre placee en $303 (771) et sa valeur est : 

$20 (32) pour la page 1 

$40 (64) pour la page 2 

II faut ensuite definir le sequencement du programme grace a une zone situee entre 
$304 (772) et $317 (791). La sequence definie peut avoir une longueur quelconque 
(mais dans les limites de la zone prevue), paire puisque chaque "action" 
elementaire est definie par deux octets. La sequence est terminee par un zero. 

Le premier octet definit le nombre de deplacements effectues. Le second indlque 
I'ampleur du deplacement. 

Vite, un exemple, car je sens que ce n'est pas clair ! Lhe paire $05-$02 indique 
que le programme va f aire 5 fois un deplacement de I'ecran d'une ligne sur deux, 
ce qui correspond a un dedoublement parfait de 1' image. Si, au lieu de $02, vous 
mettez $FE, c'est-a-dire son complement, le deplacement s'effectuera toujours une 
ligne sur deux, mais dans 1' autre sens. 

A noter qu'une paire $XX-$01 ou $XX-$FF fait un deplacement de XX llgnes, 1 ligne 
sur 1, c'est-a-dire de toute 1' image. 

Vous pouvez essayer diverses valeurs pour obtenir le meilleur effet, mais vous 
avez toujours interet apres un mouvement dans un sens a ef f ectuer le mouvement 
complementaire dans 1' autre sens, du meme nombre de lignes af in de retrouver le 
dessln original. 



0800 


1 


* 

t 




08 


12 


NB 


EPZ 


«01 


0800 


2 




3K 


X 


0800 


13 


LIGNP 


EPZ 


«02 


0800 


3 




yn 


GRAPHIQUE X 


0800 




SAVX 


EPZ 


*04 


08 


^ 






X 


08 


15 


SENS 


EPZ 


$05 


0800 


5 




X 


COPYLEFT X 


08 


16 


LIGN 


EPZ 


$26 


0800 


6 






X 


08 


17 


HLIGN 


EPZ 


$E2 


0800 


7 




!K 


POM'S X 


08 


18 


HPAG 


EPZ 


$E6 


0800 


8 




X 


X 


08 


19 


HPOSN 


EGU 


♦F-^ll 


0800 


9 


t 




0800 


20 


HIRESl 


EQU 


«C050 


0800 


10 


♦ 
t 






08 


21 


HIRES2 


EGU 


♦ C052 


0800 


11 


NOLIGN 


EPZ $00 


08 


22 


HIRES3 


EGU 


♦C057 
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Do U U 




•JO 

<cd 


DAPC1 

r Hbt:.X 


cm 1 
C.UU 


AP n "'iA 


AO Z 






L 
06 


* 

t 








no n n 
Ud U U 






PACF^!* 
r nwCi- 


cuu 




no jt 


207303 


0/ 


TOUR 


JSR CLIGN 


no n n 
Do U D 




Z5 


* 






0365 






88 


* 

f 








no n A 




ilO 




ORG 


AO n n 
Vd u u 


AO Z B! 

0365 


A027 


89 






LDY #$27 


AO n n 




£./ 




OBJ 


AQ ft n 

TO u u 


A Z 7 

036/ 


B126 


9 


TOURl 


LDA <LIGN),Y 


no ft n 
Do U U 




ilO 








no y 

0369 


9102 


•! 

91 






STA <LIGNP),Y 


no n n 
U J u u 




00 


J DEBUT DU 


rr\ui»r\Hnnt 


A Z D 

D36d 


88 


9Z 






DEY 




no n n 
U J U U 




n 

d U 








no / 

D36C 


10F9 


93 






BPL TOURl 


no n n 
Do U U 




•! 

d X 








no / r" 

036E 






94 


* 

f 








no n n 


*tl< X U d 






JMP 


ncPi IT 

UC.DU 1 


A Z 

036E 


A500 


95 






LDA NOLIGN 


m n o 
uo u o 




00 








A 7 A 

03/ U 


DOFO 


Z 

96 






BNE TOUR 


no n o 




A 
d*t 


; DONNEES 




0372 


60 


97 






RTS 




no fi o 
Uo U J 




diJ 








AO 7 

03/3 






98 










m n T 

U<3 U >3 













A 7 

Ud/d 






99 


\ CALCUL DE LA LIGNE 


no n o 
U J U J 


n 


d/ 


PAGE 


HEX 


20 


A 7 

03/3 






•1 A A 

10 










UD X D 




00 


SEQU 


DFS 


20 


no7o 
Ud/d 






i A I 
10 1 










no 1 o 
Uo lo 






dV 








A 7 
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Les fichiers EXEC 



Bruno Rives 



INTRODUCTION 

Sur APPLE II et APPLE ///, les langages BASIC et Pascal donnent la possibilite a 
1 'utilisateur d ' employer des fichiers d'un type un peu particulier, les fichiers 
EXEC : ces fichiers sont EXECutables. 

Un f ichier EXEC consiste en Line llste de commandes sauvees en format ASCII (ou 
TEXT). Quand un tel f ichier est execute, chaque commande qu'il contient est prise 
en compte par le systeme comme si elle avait ete tapee au clavier par 
1 'utilisateur . Ne marcheront done que les commandes que 1 'utilisateur peut donner 
en 'direct.' au clavier et non celles qui ne peuvent s'utiliser qu'a I'interieur 
d'un programme : les instructions de gestion de fichiers, les GOTO ... 

L' utilisation la plus rationnelle est comparable a celle que I'on trouve sur les 
gros systemes sous 1 ' appellation de J.C.L. (Job Control Language) et qui consiste 
a enchainer plusieurs programmes en y melant des donnees. On cree une suite de 
RUNS de programmes suivis chacun des donnees dont lis ont besoin . On gagne ainsi 
du temps en lanQant une serie de travaux sans devoir executer un par un chacun des 
programmes et attendre parfois la fin d ' impressions interminables pour lancer les 
programmes suivants. Cela permet aussi de faire tourner un meme programme avec 
plusieurs jeux de donnees differents sans avoir a les lancer chaque fois. 

Sur APPLE, on peut non seulement lier 1' execution de programmes que I'on tient a 
garder separes les uns des autres, mais aussi et surtout rendre automatique toute 
une suite de commandes et d'ordres que I'on tape generalement un a un au clavier : 
fabrication et modification automatiques de programmes, copie et formatage de 
disquettes, demonstrations automatiques ,,, 

UTILISATION DES FICHIERS EXEC EN BASIC. 

Ih f ichier EXEC est done une suite de commandes BASIC saisies dans un f ichier de 
type TEXT. Ce f ichier est ensuite executable par la commande EXEC suivie du nom du 
f ichier. Plusieurs moyens sont envisageables pour le creer, le meilleur etant 
d'utiliser un programme de traitement de texte dont les fichiers sont sous forme 
TEXT (APPLEWRITER n'en fait pas partie, par centre APPLEWRITER II et /// sont 
utilisables ) . Pour ceux qui n'en disposent pas, voici un petit programme BASIC 
pQur APPLE II qui fait tres bien 1' affaire : 

D$ = CHR$(4) : REM CTRL-D 
10 HOME' 

20 PRINT "DONNEZ LE NOM DU FICHIER EXEC A CREER" 

30 INPUT N$ 

HO PRINT D$;"OPEN" ;N$. 

50 PRINT 

60 PRINT "DONNEZ LES COMMANDES QUE VOUS VOULEZ EXECUTER" 

70 PRINT "QUIT POUR TERMINER" 

80 PRINT 

90 INPUT C$ 
100 IF C$="QUIT" THEN 200 
110 PRINT D$; "WRITE" ;N$ 
120 PRINT G$ 
130 PRINT D$ 
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140 GOTO 80 

200 PRINT D$ ;" CLOSE" ; N$ 
210 PRINT 

220 PRINT "VOULEZ VOUS TESTER CE FICHIER EXEC (0/N)" 
230 GET A$:IF A$ = "N" THEN 260 
240 PRINT 

250 PRINT D$;"EXEC";N$ 
260 END 

Sauvez ce programme sous le nom TEST, par exemple, et executez le. Amusez vous a 
donner les ordres les plus varies possibles (en evitant I'ordre INIT ...) : 

CATALOG 
LOAD TEST 
SPEED = 100 
LIST 

SPEED =255 
NEW 

10 HOME 

20 FOR 1=1 TO 100 

30 PRINT I 

40 NEXT I 

50 END 

RUN 

RUN TEST 
QUIT 

Pour APPLE ///, le principe est exactement le meme; seuls quelques ordres BASIC 
sont differents. Si vous terminez votre serie par RUN TEST, cela permet de 
retourner au programme initial de creation. 

Eh partant de ce mode d'emploi, il est possible d'utiliser les fichiers EXEC pour 
une foule d ' applications differentes. 

UTILISATION PES FICHIERS EX E C EN BASIC 
1) Liste des commandes usuei l les. 

C'est 1 ' utilisation la plus courante du fichier EXEC. Lorsqu'on programme en 
BASIC, il arrive tres souvent que I'on ait a rentrer des suites de commandes 
toujours identiques et il est beaucoup plus facile de taper EXEC qu'une suite de 
commandes, meme si I'on n'a que deux ou trois ordres a donner. On peut se creer un 
veritable catalogue de groupes de commandes que I'on utilise frequemment. Par 
exemple : 

EXEC P ou P contient : PR£1 

CTRL-I 80N 
POKE 36,80 
LIST 

POKE 36, 40 = 
PR£0 

EXEC L ou L contient : OPEN £ 1, " .PRINTER" 

OUTPUT £1 
LIST 

EXEC C ou C contient : CATALOG S6,D1 

CATALOG S6,D2 ... 

EXEC M ou M contient ; CALL -151 

300L 
3D0G 
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II faut noter que I'ordre 'EXEC nom de fichier' peut etre donne a I'lnterieur d'un 
fichier EXEC. 

2) La capture d'un programme BASIC. 

Cette manipulation est tres interessante car elle donne la possibilite, en 
saisissant un programme BASIC sous forme TEXT, de lui f aire subir de nombreuses 
transformations : 

- Par 1 ' intermediaire d'un traitement de texte comme APPLEWRITER II ou ///, il 
est possible de faire des modifications rapides en se promenant dans le programme 
comme dans un texte continu ou en procedant a la recherche et au remplacement 
automatique ou non . II est done possible de remplacer tous les noms de variables 
par d'autres, une certaine categorie de lignes par d'autres ... 

- Par 1 ' intermediaire d'un programme BASIC qui lit ce fichier EXEC comme un 
fichier sequentiel classique, on peut aussi faire des modifications automatiques, 
compter les variables, changer les numeros de lignes, produire un listing sur 
imprimante qui separe automatiquement les boucles, les sous-programmes ... 

- A I'aide de TEXT FILE CONVERTER ou de APPLEWRITER /// FILE CONVERTER, il est 
facile de faire passer un programme BASIC d' APPLE II sur APPLE /// et 
reciproquement . 

- On peut egalement realiser un traducteur BASIC permettant de passer de 
INTEGER a APPLESOFT et a BUSINESS BASIC. 

- On peut tres simplement transmettre ce fichier EXEC avec un programme de 
communication tel que VISITERM ou ACCES ///. 

Pour 'capturer' un programme BASIC, rien de plus facile ! Tout d'abord, faire un 

LOAD du programme en memoire centrale et reperer les numeros de la premiere et de 
la derniere ligne (par exemple, le programme va de 10 a 2000). Ajouter ensuite en 
debut de programme les lignes suivantes : 

D$ = CHR$(4) : REM CTRL-D 

1 PRINT D$;"OPEN EX" 

2 PRINT D$; "WRITE EX" 

3 POKE 33, 30 : REM PERMET DE COMPACTER LE PROGRAMME 

4 LIST 10,2000 

5 POKE 33, 40 

6 PRINT D$;" CLOSE" 

7 END 

Apres execution, le programme initial sera saisi en mode TEXT sous le nom EX. Pour 
le retrouver, il suffit de taper EXEC EX, et il sera de nouveau en memoire 
centrale. Essayez !!! 
(Pour APPLE ///, seuls changent les ordres BASIC). 

3) La generation automatique de programmes BASIC. 

II s'agit la de 1 'utilisation la plus performante, mais aussi la plus delicate, 
des fichiers EXEC. Elle est employee par des concepteurs de logiciel qui doivent 
theoriquement ecrire des programmes differents pour chacun de leurs clients. lis 
ont ef f ectivement commence par adapter chacun des programmes, mais se sont vite 
apergus que certaines parties etaient toujours les memes : ouverture, lecture et 
ecriture, fermeture de fichiers, editions, traitement de chaines de caracteres ... 
Alors, plutot que de retaper a chaque fois tous les programmes, il est plus 
efficace de se conf ectionner un generateur de programmes ! 

Tout d'abord il faut organiser un peu ses programmes de telle maniere que les 
ordres courants soient toujours a la meme place : par exemple, les ouvertures de 
fichiers a partir de la ligne 2000, les fermetures a partir de 3000 et en 
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utilisant les memes noms de variables pour recevoir les memes types d ' information 
(par exemple, F1$ sera le nom du premier fichier, R1$ a Rn$ pour les reponses des 
utilisateurs ...). Ehsuite 11 f aut creer des petlts programmes repondant a ces 
fonctions, susceptibles d'etre Indus dans le programme principal final, et saisls 
sous forme de fichiers EXEC, comme indique precedemment . Ehfin, 11 faut creer un 
programme generateur de programmes qui, en fonction des traitements choisis, va 
engendrer un programme particulier compose d'un certain nombre de sous-programmes 
differents, appeles par EXEC et lies entre eux par des lignes BASIC toujours 
identiques . . 

4) La saisie d'un programme en lang age-machine. 

II est des cas ou I'on veut implanter un programme en lang age-machine directement 
a. partir du BASIC sans passer par 1 ' intermedialre de BSAVE et BLOAD et en evitant 
de rentrer des lignes de POKEs diff idles a controler et a taper. Leg fichiers 
EXEC permettent aussi»de faire cela. 

Imaginez que vous ayez construit un programme en lang age-machine qui se trouve aux 
adresses 768 a 900 en decimal, et que vous vouliez I'implanter a partir d'un 
programme BASIC a I'aide de POKES. Le programme BASIC suivant le permet : 

10 D$ = CHR$(4) : REM CTRL-D 
20 PRINT D$,-"0PEN EX" 
30 PRINT D$; "WRITE EX" 
40 FOR 1=768 TO 900 

50 PRINT "10"; I;" POKE " ; I;", " ; PEEK( I) 
60 NEXT I 

70 PRINT "10910 RETURN" 
*80 PRINT D$,-" CLOSE" 

Pour rajouter a votre programme cette phase d ' implementation du sous- programme en 
langage-machine, f aites un LOAD de votre programme, puis un EXEC EX qui rajoutera 
les lignes 10768 a 10910, ajoutez ensuite une ligne 'GOSUB- IO768' pour initialiser 
la routine, et re-sauvez le tout. 

5) Les demonstrations et executions automatiques . 

Cette utilisation des fichiers EXEC permet de faire executer un programme qui 
demande des -donnees exterieures sans aucune intervention, sans modifier le 
programme, et meme de faire tourner une meme application avec plusieurs Jeux 
d'essais definis a I'avance. 

Prenons 1' exemple d'un programme DATE qui demande a 1 ' utilisateur son nom, puis 
son prenom, enfin sa date de naissance. Pour 1' executer sans toucher au clavier, 
11 suffit de creer un fichier EXEC comportant : 

- RUN DATE 

- DURAND 

- BERNARD 

- 23 JANVIER 1952 

Ceci peut servir a des versions de demcffistration de programmes dont on ne veut 
pas modifier toutes les lignes INPUT pour en rendre 1' execution automatique. 

UTILISATION DES FICHIERS EXEC EN PASCAL. ' 

Eh Pascal APPLE II ou APPLE ///, un fichier EXEC est egalement un fichier de type 
ASCII comprenant une liste de commandes que I'on donne habituellement au clavier. 
Comme en BASIC, on peut creer ce fichier par un programme Pascal. La marche a 
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suivre est alors la meme et nous ne la decrirons pas ici, 

Ce que I'on peut faire de plus, c'est declarer au niveau du systeme Pascal que 
tout ce que I'on va taper au clavier sera desormais enregistre dans un fichier 
prealablement defini. La difference est de taille car il suffit de taper une fois 
la serle de commandes pour la ref aire ensuite autant de fois que I'on veut de 
maniere automatique . Cela veut dire aussi qu'il faudra executer TOUTES les 
commandes que I'on veut avoir sous le fichier EXEC, ce qui n ' est pas le cas 
lorsqu'on le cree a partir d'un programme. 

La marche a suivre est alors la suivante : 

- Au niveau du systeme, taper M pour MAKE EXEC. 

II est alors demande un nom de fichier et un slgne qui, tape deux fois par la 
suite, arretera 1 ' enregistrement sur le fichier EXEC. 

- A partir de ce moment la, TOUT ce que vous tapez est enregistre sous le nom 
que vous avez donne, et cela jusqu'a ce que vous tapiez deux fois de suite le 
caractere de fin d ' enregistrement . 

- Pour executer le fichier, tapez EXEC//, suivi du nom du fichier. 
Par exemple. 



- M 


(au niveau systeme Pascal) 


- TEST 


(nom du fichier EXEC) 


- % 


(acceptation de % comme caractere de fin) 


- F 


(FILER) 


- L 


(catalogue) 




(du disque courant) 


- Q 


(retour au niveau general) 


-%% 


(fin de 1 ' enregistrement) 



L' execution de ce fichier par EXEC//TEST va automatiquement dans le FILER et donne 
le directory du volume courant. Cette execution peut aussi etre lancee a partir 
d'un autre programme Pascal a I'aide de CHAINSTUFF (comme le programme execute 
lors du BOOT) . 

Les utilisations sont exactement les memes que celles precedemment definies pour 
le langage BASIC, a part celles qui ont trait a la modification et au transfert 
des programmes, puisque les programmes source Pascal sont deja en format TEXT. De 
meme, la saisie de programmes en assembleur est inutile. 

Par centre, la fabrication de programmes generateurs de programmes et 
1 ' utilisation de toutes les commandes de gestion de fichiers et de volumes est 
tres puissante. La partie de programme decrite ci-apres montre 1 'utilisation des 
fichiers EXEC a partir d'un programme Pascal APPLE II pour forraater des 
disquettes. II est generalement inclu dans un programme principal sous forme de 
procedure mais ce petit exemple vous permettra de le tester immediatement : 

PROGRAM FORMAT; 
$ USES CHAINSTUFF; 
BEGIN 
WRITELN 

( 'PLACEZ UNE DISQUETTE VIERGE DANS LE LECTEUR 5 ET TAPEZ RETURN'); 
READ( KEYBOARD, REPONSE); 

IF REPONSE = CHR(13) THEN SETCHAIN( ' EXEC//EXFORMAT' ) ; 
END 

Le fichier EXEC EXFORMAT contient : - X 

- FORMATTER 

- 5 

- ( Return ) 
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- X 

- FORMAT 



La derniere Instruction, X FORMAT, permet de retoumer au programme principal. 
Attention, comme toutes les instructions que vous entrez sous f ichier EXEC dolvent 
etre executees une premiere fois, vous serez oblige de faire un faux programme 
FORMAT pour pouvoir stopper 1 ' enregistrement, faute de quoi I'EXEC repetera 
fid element ou le formatage continu ou 1' arret du programme. 

Les fichiers EXEC ne sont generalement connus que de nom sur APPLE. lis font 
pourtant partie des petites caracteristiques d' APPLE qui off rent de multiples 
ressources. Si 1 'accent n'a pas ete mis dessus, c'est parce que ses concepteurs 
ont sans doute pense que tout inf ormaticieh devait connaitre ce genre de 
possibilites . Mais nous ne sommes pas tous des inf ormaticiens ,., 





nselgnement Assiste par Ordinateur pour Ordlnateurs 



llOPPE D'AlfPICO 



de BASIC 



- SILEI 
COURS 
APPLESOFT 



- ITT 2020 - APPLE II 
EB FRAflCAIS 



APPLE II + 



- APPLE II ( + Carte APPLESOFT ) 

- APPLE II + 

- APPLE III 



PALSOFT 
SILROK 

( S jr DIS4UETTES 5 1/4 Pouces 



KOPPE D'AKPICO, ( + APPLESOFT en BOK ) 
I- ITT 2020 ( + Carte PALSOFT ) 
|- SILEI ( de Leanord ) 

DOS = DOS 3.3 - Memoire = 48 K. ) 



1/ €CL'?J1 1 [ BASIC ) 



TRES PROGRESSIF - Ne necessite aucjne connaissajic e prealable en 
inf orniatique, ^ 
Pour debutants et non debutants, TOUT Y EST EZPLlgUE, 
20 Legons - Environ 10 a 12 Heures de cours, 
80 Exercices conLnente s , expliques, resolus, executes. 
140 Questions notees sur 20, par groupesa - Reponses a 
GRAPHISKE BASSE et HAUTE RESOLUTIOM. 

Defilement automatique du Cours avec arrSts et reprise 
' en cours de legon. 
De nombreux exercices peuvent etre reexecutes autant d 
vous le souhaitez, Ainsi, vous pouvez obtenir les menie 
ou des resultats differents en faisant varier les donnees d'entree 



ux questions, 
s possibles 



de fois que 
es resultats 



LA ?IK DE CE COURS , VOUS SAUREZ PR0GaAlt3.lER. 



2/ COURS 2 ; BASIC 



) 



En FT-az:-za.Ls 



o 



. Philosophie generale identique a celle du COURS 1 ( BASIC ), 

• Z^5 Lemons - 12 Heures de cours mininuni, 
a 120 Exercices coinoientes, expliques, resolus, executes. 

• 160 Questions notees sur 20, par groupes - Repojises aux questions. 

3/ COirrRATS-LOCATIOj; du COURS BASIC boi^r: 



Etablissements d'Easeignement. 

Etablissements de Formation payante. 
Centre de Recherches, Laboratoires, Centre 




Prix dornies a titre indicatif, pouvant 
Stre modifies sans preavis. 



8 Alice ^"JFK^Ji 
giOCO EVH>'-C3UfiCDUfiCN:-:E3 



Ne ratez pas la cible ! 



Le premier lecteur qui nous fera 
parvenir 1 ' explication complete de ce 
que fait le programme suivant gagnera 
un abonnement a quatre numeros de 
Pom's. Ce programme requiert le BASIC 
Integer en ROM, c'est-a-dire la carte 
Integer ou la carte langage. 



>LIST 
20733 
2073^ 



:073J 



CALL -936: TAB 19: VTAB 13 
DEVINETTE= ASC ( "POMS" ) * PEEK 
( -1823)/ PEEK (-1595))KP0MS ^ 
POMS 

PEEK (-7782), 12: POKE 
(--1710) ,18^ 

2069, PEEK ( RND (^096 



POKE 
PEEK 
20736 POKE 
) ) 

2 0737 PRINT "POMS" 
20738 POKE POMS, POMS 
20 739 POP 
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Personnalisez vos disquettes 



Pierre Boutreux 



VouS souhaitez peut-etre pouvolr personnallser vos disquettes en falsant 
apparaitre votre nom, par exemple, lors du CATALOG... Pour cela, il suffit de 
remplacer la mention "DISK VOLUME" affichee en tete du catalogue par un titre a 
votre eonvenance . 

Bi effet, si vous examinez le contenu des adresses $B3B0 a $B3BA, vous trouverez : 
B3B0- C5 GD D5 CC CF D6 AO CB 
B3B8- D3 C9 

Eh vous reportant a la page 7 du "APPLE II Reference Manual", vous constatez que 
ces codes sont les codes-ecran (ou ASCII etendu) des caracteres suivants : 

B3B0- E M U L V K 

B3B8- SID 

soit DISK VOLUME a I'envers. II faut done charger dans les memoires $B3B0 a $B3BA 
les codes-ecran de votre titre en sens inverse, dans la limite des 11 caracteres 
disponibles. C'est ce que fait le programme BASIC liste ci-apres, avec quelques 
variantes selon que vous desirez un affichage normal, INVERSE ou clignotant. 

Pour sauver le DOS contenant votre modification, il suffit ensuite d 'initialiser 
une nouvelle disquette. 

Remarque : si C=ASC(C$), le code ecran du caractere C$ est : 

. C+128 en mode NORMAL, 0-64 en mode INVERSE, C en mode FLASH, si C» 64. 

. C+128 en mode NORMAL, C en mode INVERSE, C+64 en mode FLASH, si C< 64. 



10 HOME 

20 REM }IC!K}K}K}K]K]K}K)K}IC>K}K}K>K}K)K]K}K}K}K 
)K )K 

« PERSONNALISEZ * 

* VOTRE DISQUETTE * 

* JK 

)IC )K ^IC )K 3IC 

60 REM 

65 REM COPYRIGHT P. BOUTREUX 
70 REM ET POM'S 
72 REM 

75 HTAB 10 : GOTO 90 
80 HTAB 20 ~ LEN <Z*) / 21 PRINT 
Z*: RETURN 

90 A$ = ")K>K>K)K)K)K>K>K)K)K)K)K}K>K}K}K}K}K" : B$ - 
"3K )IC":Z* ~ A* 

: GosuB 80 :z* b*j gosub so 

:Z* •= "xPERSONNALISATIONJic": GOSUB 

8o:z* B»: GOSUB 8o:z$ = "« 

D'UNE DISQUETTEX" 
10 GOSUB 80 J Z* = B*J GOSUB 80 : Z 

« = A$: GOSUB 80 
150 PRINT 



16 PRINT CE PROGRAMME MOUS PE 

RMETTRA DE PERSON-" 
170 PRINT "NALISER VOS DISQUETTE 

S EN REMPLACANT" 
180 PRINT "L'INFORMATION DISK VO 

LUME PAR CELLE DE" 
190 PRINT "VOTRE CHOIX.IL FONCTI 

ONNE PAR MODIFICA-" 
20 PRINT "TION DU DOS»IL FAUDRA 
DONC SAUVER LE NOUVEAU DOS 

AINSI MODIFIE EN INITIrtLISAN 

T UNE NOUVELLc. DISQUETTE AV 

EC LE PROGRAMME HELLO DE VOT 

RE CHOIX«" 
210 PRINT "L'INFORMATION AURA UN 

E LONGUEUR MAXIMA-" 
220 PRINT "LE DE 11 CARACTERES," 
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yj AMAfiAi 

inFormotique 

vous apporte 

ASSISTANCE et CONSEIL 

pour la 

MISE EN SERVICE 

de votre 

1»'MICR0-0RDINATEUR 

• Realisation de logiciels specif iques 

• Organisation de sessions d'initiation a 
I'ordinateur et de formation a I'utilisation 
des programmes sur APPLE II et Goupil 

• Location de materiel 
courte ou moyenne dur6e 



Configuration 


Weel(-end 


1'= Semalne 


Semaine sup. 


Apple II 48 K/Roppy/mon. 
Apple II 48 K/2 Roppy/mon. 
Apple II Pascal 2 Roppy 
Imprlmantes 


350 F H.T. 
450 F H.T. 
550 F H.T. 


700FH.T. 
900 F H.T. 
1 100 F H.T. 

5%dLiP.Vte 


400 F H.T. 
500 F H.T. 
600 F H.T. 
3%duP. Vte 



• Contrats d'entretien de materiel 




[apple et goupil 2 



• Aide au choix de logiciels standards 



Demandez une demonstration de nos Logiciels Stan- 
dards Interactifs « Serie S » pour APPLE : 
(Tous compatibles entre eux et avec VISICALC) 

• SUPER-GENEFICHE version PRO (65% de capacite supple- 
mentaire sur un APPLE 64 K, et de nombreuses extensions 
nouvelles} 

• S/FACTURE (pour la facturation) • S/ETIQUETTE (pour le 
mailing) 

• S/COURRIER (pour le courrier personnalise et le traitement 
de texte) 

• IVIODIFICHE (utilitaire de transformation desfichiersi 



Alft mforrnQtique 

1^5, rue Gutenberg 
75015 PARIS (IVI°Javel) 
tel. : (1)577-59-39 



2-^0 

250 

240 

270 

28 
290 



295 
30 
310 
32 

330 

35 
360 

37 
380 

390 
39 S 
^0 
110 
^2 
^30 
1-^0 

15 

16 



17 



135 
190 
50 
50 5 
510 

52 

53 

510 
515 
550 
56 



57 

58 

59 



L'AFFICHAGE PEUT SE 



1-EN VIDEO 
2~EN VIDEO 
3-EN MODE C 



PRINT 

faire: " 

htab 10 : print 

NORMALE" 
HTAB 10 : PRINT 
INVERSE" 
HTAB 10 : PRINT 
LIGNOTANT " 
PRINT 

PRINT "ENTREZ VOTRE CHOIX Jl 
,2,3";: HTAB 30 J INPUT " ? " 

:::: A% 

: PRINT J PRINT 

1 OR A > 3 THEN 29 
: PRINT 

"ENTREZ VOTRE MODIFICA 



; A%: A 

PRINT 
IF A 
PRINT 
PRINT 
TION" 
PRINT 
S ) " } : 

X = 
IF 

15 11 
IF A 



"(MAXIMUM 11 CARACTERE 
HTAB 27: INPUT A* 
LEN (A*) 
X > 11 THEN 320 

X 

1 OR A ==== 3 THEN B* - 



IF A 2 THEN B* = 
IF B :== THEN -130 
FOR I = 1 TO B 
A$ --^ B* + A* 
NEXT I 

FOR J = 1 TO 11 
B* = MID$ (A*,J,1) 



HAI' 



A == 
ASC 
A = 
ASC 



1 THEN 
(B$) + 

2 THEN 
CB*) - 
6-1) 

3 THEN 
(B*) + 



POKE 46011 



POKE 
61 5tc 

POKE 
61 * 



16011 - 
ASC (B* 



16011 - 
( ASC (B* 



IF 
J» 
IF 

J, 

) > 

IF A 

J, ASC 
) < 61) 
NEXT J 
HOME 

D* = ""i REM CTRL~D 
PRINT D*; "CATALOG" 
PRINT : PRINT 

PRINT "LA MODIFICATION VOUS 

PLAIT -ELLE ?" 

HTAB 10 J PRINT "1=0UI" 

HTAB 10 : PRINT "2=N0N";: HTAB 

30 : INPUT ZJ PRINT X PRINT 

HOME 



IF Z ■ 

IF Z = 
PRINT 



1 



2 THEN 510 



OR Z 

THEN 210 
"POUR SAUVEGARDER CETT 
E MODIFICATION, CHARGER L 
E PROGRAMME HELLO DE VOTRE" 
PRINT "CHOIX ET INITIALISER 
UNE NOUVELLE " 
PRINT "DISQUETTE" 
PRINT t PRINT : PRINT " 
AU REVOIR" 
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Les clubs ont la parole 



ASSOCIATION DE MICRO-INFO RMATIQUE 
A.M.I. 76 

BOITE POSTALE 4059 

76022 ROUEN CEDEX 

TEL : 16 (35) 89 49 18 

Creee en aout 1 98 1 , cette association a but non lucratif se donne pour objectlf de 
regrouper des utilisateurs et utilisatrlces de micro-ordinateurs . 

1. Premiers axes d'activite 

- Etudes comparatives des materiels et logiciels presentes sur le marche . 

- Essais et demonstrations de programmes prof esslonnels . 

Initiation et formation a 1 ' utilisation des micro-ordinateurs, a 1' analyse et a 
la structuration des informations. 

- Assistance et conseil, mutuels, entre les membres de 1 ' association . 

2. Pro Jets en cours 

- Etude comparative de plusieurs logiciels de comptabilite . 

- Experimentation en controle de processus, sur APPLE. 

Travail a long terme de reflexion sur la micro-inf ormatique, avec des 
f ormateurs . 

- Constitution d'une bibliotheque micro-inf ormatique (deja assez importante). 

Nous avons deja permis a des utilisateurs d' horizons tres differents de se 
rencontrer : commerce, ophtalmologie, travail social, biologle, electronique, 
recherche en intelligence artif icielle, marketing... 

REJOIGNEZ-NOUS AU PLUS VITE, ECHANGEONS NOS EXPERIENCES ! 

MA POMME 

5, rue Sauniere - 75016 - Paris 

La premiere Assemblee Generale a eu lieu recemment . II y a ete decide de fixer la 
cotisation annuelle a 30.0 francs, les membres de moins de 18 ans beneficiant d'une 
reduction de 50%. Le club tiendra une reunion les troisiemes mardis de chaque mois 
a 19H30, dans un local restant a determiner. 

Prochaines reunions : Visicalc le 20/4, les bases de donnees le l8/5 et CPM le 
15/6. Pour tous renseignements, telephoner tous les jours de 20H a 24H au (1) 558 
0578. 



NANTES APPLE CLUB 

21 A, bd Gabriel GUIST'HAU 

44000 NANTES 

Personne a contacter : Monsieur BACHELIER 

TEL : (40) 47 53 09 

Ce club a pour but de mettre en relation les utilisateurs d' APPLE de la region 
nantaise, utilisateurs (ou f uturs utilisateurs), prof esslonnels ou personnels... 
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Courrier des lecteurs 



Monsieur, 

J'ai blen regu le numero 2 de POM'S avec pas mal de choses interessantes . 

Une idee : ne pourriez-vous pas a chaque numero Joindre dans la disquette 2 ou 3 
graphiques H.R. utiles pour toute la famille, par exemple : 

- carte de France avec departements 

- carte de France avec voles navigables 

- carte de 1 ' Europe .etc 

Gela montrerait a certalnes families que I'ordinateur peut etre utile a tous - 

Par ailleurs, pourriez-vous f aire un article sur les multiples emplols de 

1' instruction EXEC ? Merci et bon courage 

Docteur Pierre- Yves GOURIOU 
08600 Givet 

REPONSE : 

1- Nous attendons les contributions graphiques (et autres) de la part de nos 
lecteurs . 

2- Bruno RIVES vous off re Justement dans le present numero un article sur EXEC. 
Vous etes comble ! 



pom's 

BULLETIN D'ABONNEMENT 




Je desire recevoiile N^^de POM'S 




□ avec disquette 


85FTTC 


□ sans disquette 


35FTTC 


Je deste m 'abonner pour 4 numeros 




a partir du N° ._i 




□ avec disquette 


295 F TTC 


□ sans disquette 


120 FTTC 


Norn _ _ . ._ _ . __ 




ArirfiSfifl 






Ces tarifs comprennent I'envoi postal en France M6tropolitaine et CEE (voie a6rienne except6e) 
Envoyez ce bon de commande et votre reglement a : 

Editions MEV - 49 rue Lamartine - 78000 Versailles 
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C'est avec impatience que j'attendais le numero 2 de POM'S, et dans 1' ensemble je 
n'ai pas ete degu ! Quel bonheur d' avoir enf in une revue en langue frangaise 
consacree a 1' APPLE II ! Bravo ! 

Cependant, le dicton dit : "Qui aime bien chatie bien !". Aussi, apres mes 
encouragements les plus sinceres, me permettrai- je de faire quelques critiques ! 

1- La parution trimestrielle ne pourrait-elle pas etre ramenee a une parution 
bimestrielle ? 

2- Beaucoup d 'articles de fond que vous presentez proviennent de la revue "CALL 
A.P.P.L.E.". II est vrai que vous I'avouez, mais tout de meme, c'est un peu 
decevant pour ceux de vos lecteurs qui lisent "NIBBLE" ou "CALL A.P.P.L.E" ! 

3- Les programmes BASIC proposes sont d'un interet tres restreint (AGENDA ou 
MULTIPLICATION). Pourquoi ne pas faire un article de fond sur un sujet (par 
exemple : fichier a acces sequentiel indexe) et proposer un programme BASIC 
illustrant cette etude ? 

A present, a titre de participation, je vous propose un petit programme BASIC 
pouvant servir de "MENU" et qui utilise les possibilites tres completes de 
tabulation sur I'ecran. L' exemple propose permet 12 options, mais il peut etre 
etendu a I'infini. 

Au niveau des possibilites meconnues de 1' Applesoft, savez-vous qu'il est possible 

d'utiliser des donnees n'importe ou dans un DATA a I'aide de POKE en page 0. Les 

pointeurs DATA sont : POKE 125, N : POKE 126, P 

N : valeur decimale du Bit de poids faible de I'adresse DATA, 

P : valeur decimale du Bit de poids haut de I'adresse DATA. 

EX : 818... HEX 8 = DEC 8 HEX 18 = DEC 24 

On tapera : POKE 125,24 : POKE 126,8. 

Seules contraintes : 

1- Posseder un utilitaire de DUMP, par exemple CRAE. 

2- Placer les DATA en debut de programme, de fagon qu'aucune modification ne 
change I'adresse du DATA. 

3- On ne peut placer le pointeur qu'en debut de ligne BASIC d'ou la necessite 
d'une ligne par type de DATA. 

Cette f a?on de proceder est plus simple que le "RESTORE NNN" propose dans I'OI il 
y a quelque temps . . . 

Maintenant une question pratique : enseignant, j'alraerais utiliser les programmes 
de 1' Education Nationale en LSE. Je possede un APPLE II + avec carte langage et 
carte Z80. Existe-t-il un LSE pour APPLE ? Y a-t-il moyen d'utiliser un LSE d'un 
autre MICRO moyennant quelques modifications minimes ? 

Bdmond AUGIER 
MONACO 

REPONSE : 

1 -Helas, ce n'est pas encore possible... 

2 -Nous ne pouvons pas nous taire sur tous les sujets evoques par les revues 
americaines. Sinon, que pourrions-nous dire ? Notez que nous ameliorons toujours 
ce dont nous avons eu I'idee en lisant les classiques. Vous pouvez constater 
qu'avec la conversion Pascal-BASIC de Gilles MAUFFREY, mise au point en novembre 
1981, nous avons eu I'idee en meme temps que "CALL A.P.P.L.E". 

3 -Avec 1' article sur EXEC, vous avez deja un article de fond. Eh epluchant le 
programme aide-memoire (Pom's N 1),vous avez une excellente occasion d' analyser 
1 'utilisation de fichiers sequentiel et a acces direct. 

4 -Malheureusement, il n'existe pas de LSE pour APPLE, et il n'est pas simple de 
modifier un LSE d'un autre micro. Par centre, il existe d'autres Icgiciels pour 
APPLE destines a 1 ' enseignement . 
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10 



70 
80 

90 



100 
110 

120 



170 

180 

190 
20 

210 
22 



23 

25 

26 

27 

28 

290 



X EXEMPLE DE MENU x 
* X 

^# up u# \V 1^ 

A ^fc ^fc ^ ^ ^fc ^fc ^fc A ^fc ^« j^* ^™ /fc A /fc ^fc 

POKE 21-1,255: TEXT t HOME J REM 

POKE=PAS DE LIST 
DATA OPTION 1, OPTION 2,0PTI0 
N 3, OPTION -1, OPTION 5, OPTION 
6, SUITE MENU 
DATA OPTION 7, OPTION 8, OPT 
ION 9, OPTION 10, OPTION 11, 
OPTION 12,RET0UR DEBUT MENU 

DIM M^d-*}) 

FOR I = 1 TO l-i: READ M*(I){ 
NEXT 

C* C )w( ^If W W V V V V V W W ¥ 

rV C* PI ^ ^ ^ ^ ^ ^ ^ * ^ ^ ^ * ™ ^ * ^ ^ 

* PAGE 1 DU MENU x 

V = IJ GOSUB 690 t FOR V = 1 TO 
22: HTAB i: PRINT HTAB 
39: PRINT "*": NEXT V: GOSUB 
690 

VTAB 2: HTAB 2: INVERSE : PRINT 
" DEMONSTRATION D'UN LOGICIE 
L DE MENU ": NORMAL 
VTAB 3: FOR I 2 TO 39: PRINT 
"X" : : NEXT I 

FOR I = 1 TO 7: HTAB 3: VTAB 

-1 + 2x1: PRINT I (I 

) : NEXT I 

HTAB ^: VTAB 18: PRINT "»" 
VTAB 21 : HTAB 15: PRINT "VOT 
RE CHOIX "J CHR* (91);" "J CHR* 
(93): VTAB 21 : HTAB 28: GET 
C$: PRINT C*: IF C* = "6" THEN 
670 : REM e ^ FIN DE PROGR 
AMME 

V = VAL (C*): IF V = THEN 



310 



FOR I = TO 7 



V: VTAB 18 - 
'»'■: II 

2 X i: 



I > THEN VTAB 20 

HTAB -i: PRINT 
NEXT i: IF V = 6 THEN FOR I 

= 1 TO 200 : NEXT 
VTAB -1 + 2 X V: HTAB 6: INVERSE 
: PRINT M*(V): NORMAL 
FOR I 1 TO 1000 : NEXT I 
ON V GOTO 590,600,610,620,63 
0,6^0,3-10 

Fv E* ^1 ^ ^ ^ ^ ^ ^ ^ ^ ^ 
>K X 

X PAGE 2 DU MENU x 

HOME :V - i: GOSUB 690 : FOR 
V = 1 TO 22: HTAB i: PRINT " 
X":: HTAB 39: PRINT "x": NEXT 
V: GOSUB 690 



35 

36 

37 



38 
390 



^00 



^10 
42 



■13 

4^0 

-150 
-160 

470 



52 

53 

54 

55 

56 

57 

58 

59 
600 
610 
620 

63 

64 

65 



660 

67 

68 

69 



VTAB 2: HTAB 2: INVERSE : PRINT 
DEMONSTRATION-PAGE 2 
'■: NORMAL 
VTAB 3: FOR I :== 2 TO 39: PRINT 



"X" } : NEXT I 



FOR V 8 TO 14: VTAB 2 x V 

10 : htab 3: print (v ~ 7)1"* 
.":m*(V): next v 
htab 4: vtab 18: print ">>" 
vtab 21 : htab 15: print "vot 
re choix "} chr* (91):'.' ": chr* 
(93): vtab 21 : htab 28: get 
c*: print c*:v " val (c*) 
if c* := "0" then poke 214,0 
: end : rem e=fin du verro 
uillage de list 

IF V THEN 390 
FOR I TO 7 - V: VTAB 18 - 
2 X i: HTAB 4: PRINT ">>": IF 
I > THEN VTAB 20 - 2 x IJ 

HTAB 4: PRINT 
NEXT i: IF V " 7 THEN FOR I 

- 1 TO 300 : NEXT 
VTAB 4 + 2 X v: HTAB 6: INVERSE 
: PRINT M*(V + 7)i NORMAL 
FOR I TO 10 00 : NEXT I 
ON V GOTO 520,530,540,550,56 
0,57 0,580 

X X 

X APPEL OPTIONS x 
X X 



GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

HOME 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

REM 

HOME 



650 
650 
650 
65 
650 
65 



REM 
REM 
REM 
REM 
REM 
REM 



OPTION 7 
OPTION 8 
0PTI0N9 
OPTION 10 
OPTION 
OPTION 



11 
12 



GOTO 170 



650 : 
650 : 
65 : 
650: 
650 : 
OPTION 
: VTAB 



REM 
REM 
REM 
REM 
REM 
6 
12 



OPTION 
OPTION 
OPTION 
OPTION 
OPTION 



:a* 



"DEBUT D 



E VOIRE OPTION" 
(A*) / 2: PRINT 
HTAB 25: INPUT 

RN' ":r*: if r* 

650 

HOME : GOTO 170 
HOME : VTAB 12: 
"AU MOTS PROCHAIN 
NORMAL : VTAB 23: 
VTAB V: FOR H 
"X" ; J NEXT H: 
FOR I ^= 1 TO 



HTAB 20 ■- LEN 
A*: VTAB 20 : 
"TAPEZ 'RETU 
< > "" THEN 



HTAB U 
I " 

NEW 
1 TO 3 
RETURN 
7t HTAB V 



PRINT 



4 

) : 



+ 2 X 
NEXT 



i: 

I 



PRINT 



i:" 



Imprimerie Laballery, 58500 Clamecy, imprime en 

depot legal ; 1" 



France. Directeur de la publication Herve Thirier 
trimestre 1982. 



ESPACE ELECTRONIQUE 

lUEL CENTER PARIS 15': 143, av. Felix-Faure - 75015 Paris, Tel. 554.97.48, Metro : Balard. 
ILLEL CENTER PARIS lOr : 86 bd Magenta 75010 Paris, Tel. 201.94.68, Metro : Gare de I'Est, Parking : Magenta. 

n 
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APPLE 11 

Un ies rnicro-ordinateurs les plus 
fiables de sa generation, Apple II 
est utilise dans de nombreux 
domaines : gestion, comptabillte, 
enseignement, utilisations scienti- 
fiques et industrielles,applications 
domestiques. 

D'une tres grande robustesse 
(garantie totale I an) Apple II n'ex- 
cede pas 5 kg et sa facilite *e trans- 
port renforce encore sa souplesse 
d'utilisation. 

Son extensibilite est remarquable : 
Apple II etant compatible avec la 
plupart des peripheriques actuels, 
il beneficie d'un large eventail de 
possibilites. 



CONFIGURATION DE 
DEVELOPPEMENT 




Langage 



Materiel 



Systeme 
Memoire 
utilisateur 
(RAM) 

Micro-programmation 

Unites 
Disk II 



BASIC 


PILOT 


PASCAL 


FORTRAN 


II Plus 


II Plus 


II Plus 


II Plus 


32 K 


48 K 


48 K 


48 K 


Cartes 
BASIC 

1 


Cartes 
BASIC 

1 ou2 


Carte 
Langage 

1 


Carte 
Langage 

1 



APPLE III 

L'Apple III est un systeme cii'ordi- 
nateur de bureau puissant, faisant 
partie ^'ensembles etuclies surme- 
sure et confus pour resoudre vos 
besoins complexes en application. 
Pour les managers, les financiers-, 
les analystes et tous ceux qui ont 
besoin i'organiser des faits et des 
chiffres, il existe le systeme 
d'Analyse cle I'information Ap- 
ple III. 

Option A : 33.330 F TTC visi- 
cale 3 - S.O.S. buissness Basic - 
Moniteur3 12" 



Option B: 38.100 F TTC. 

Idem A + Floppy supplementaire 
Option C ; 
41.100 F TTC 
Idem B -I- 
Imprimante 
thermique 
graphique. 




LES L0GICIEL5 



Pour APPLE II 

PHANTOMS FIVE 48 K (DOS 3.3) 

SPACE EG .'IS 48 K (DOS 3.2 ou 3.3) 

RASTER BLASTER 48 K 

APPLE PANIC 48 K 

COMPUTER BISMARCK 48 K 

COMPUTER NAPOLEONICS 48 K 

COMPUTER AIR COMBAT 48 K 

VISICALC(DOS3.3)16secteurs I 

VISITREND + VISIPLOT 2 

VISIDEX 1 

VISIPLOT 1 

VISITERM 1 

DESKTOP PLAN II I 

CCA/DMS (Gestion de Fichier) .'. 1 

APPLE WRITER. ) 

APPLE POST 

APPLE PILOT I 

MINI-ASSEMBLEUR APPLE SOFT 

PROGRAMME 

COMPTABILITEGENERALE(SAARI) 3 

PROGRAMME PAYE (GIPSI) 2 



260,00 
260,00 
295,00 
380,00 
395,00 
450,00 
495,00 
764,00 
363,76 
764,00 
640,52 
375,92 
764,00 
105,44 
576,24 
352,80 
293,60 
235,20 

410,40 
587,20 



FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTTC 
FTFC 

FTTC 
FTTC 



BON DE COMMANDE 
EXPRESS 



lUEL 



A retourner 6 ; ILLEL Center Informatique : 
service vente par correspondance 
143, avenue Felix Faure 75015 Paris. 



MODE DE R^GLEMENT CHOISI 

□ a la commande paieiment comptant 

□ a credit' a paftir de 2000 F. 

Je verse 20 % dj montant total de mon achat ; , 

ci-ioint : Chfeque bancaire □ C.C.P. O Mondot carte □ 
* Conditions de credit CREG : • Etre salari6f 
• 20 % minimum ou comptant, solde orrondi 6 lo centaine sup6rieure. 



Je soussigne ; Norn 

N° Rue. 

Code postal 



. Prenom . 



. Ville_ 



. Tel. . 



commande (ermeetidesire recevoir d'urgence 



Quantite 



Prix unitaire 



Signature ; 



Montant net 

Froi^'de port 
pour envoi postal 

TOTAL A PAYER 



Prix tol 



00 



Pour mieux choisir 
''votre'' ordinateur 
et pour mieux rutiliser. 




Y\ LCJRDIIMATEUR 
ll-^i IIMDIVIDUEL 

Vous y trouverez : 

L'adualite et les tendances de rinformatique individuelle • des galops et des bancs 
d'essai des principaux materiels • des panoramas et des tests comparatifs • le point 
des grandes manifestations internationales • des articles d'initiation • des syntheses 
• des programmes • des interviews 'exemploires" • des conseils • des idees 

• des astuces. 

Y\ L'ORDIIMATEUR 
II— Jj IIMDIVIDUEL 

chez votre marchand de journaux 

41 rue de la Grange aux Belles - 75010 Paris 



